procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Qascii_incompatible): New variable.

Browse source 
(syms_of_coding): Setup Qascii_incompatible.
(setup_coding_system): Be sure to initialize coding->common_flags.
Check `ascii-incompatible' property of the coding system.
This commit is contained in:
Kenichi Handa 2006-05-18 02:19:01 +00:00
parent ad598c8b58
commit 0c2660c849
1 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/coding.c
View file

@ -363,6 +363,7 @@ Lisp_Object Qno_conversion, Qundecided;
Lisp_Object Qcoding_system_history;
Lisp_Object Qsafe_chars;
Lisp_Object Qvalid_codes;
Lisp_Object Qascii_incompatible;
extern Lisp_Object Qinsert_file_contents, Qwrite_region;
Lisp_Object Qcall_process, Qcall_process_region;
@ -3625,7 +3626,10 @@ setup_coding_system (coding_system, coding)
= CODING_REQUIRE_DECODING_MASK | CODING_REQUIRE_ENCODING_MASK;
}
else
coding->eol_type = CODING_EOL_LF;
{
coding->common_flags = 0;
coding->eol_type = CODING_EOL_LF;
}
coding_type = XVECTOR (coding_spec)->contents[0];
/* Try short cut. */
@ -3685,6 +3689,12 @@ setup_coding_system (coding_system, coding)
if (!NILP (val))
coding->composing = COMPOSITION_NO;
/* If the coding system is ascii-incompatible, record it in
common_flags. */
val = Fplist_get (plist, Qascii_incompatible);
if (! NILP (val))
coding->common_flags |= CODING_ASCII_INCOMPATIBLE_MASK;
switch (XFASTINT (coding_type))
{
case 0:
@ -7814,6 +7824,9 @@ syms_of_coding ()
Qvalid_codes = intern ("valid-codes");
staticpro (&Qvalid_codes);
Qascii_incompatible = intern ("ascii-incompatible");
staticpro (&Qascii_incompatible);
Qemacs_mule = intern ("emacs-mule");
staticpro (&Qemacs_mule);