Mercurial > hg > xemacs-beta

comparison src/lread.c @ 282:c42ec1d1cded r21-0b39

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b39
author cvs
date Mon, 13 Aug 2007 10:33:18 +0200
parents 7df0dd720c89
children 558f606b08ae
comparison
equal deleted inserted replaced
281:090b52736db2 282:c42ec1d1cded
66 Lisp_Object Qcurrent_load_list; 66 Lisp_Object Qcurrent_load_list;
67 Lisp_Object Qload, Qload_file_name; 67 Lisp_Object Qload, Qload_file_name;
68 Lisp_Object Qlocate_file_hash_table; 68 Lisp_Object Qlocate_file_hash_table;
69 Lisp_Object Qfset; 69 Lisp_Object Qfset;
70 70
71 /* See read_escape() for an explanation of this. */
72 #if 0
71 int fail_on_bucky_bit_character_escapes; 73 int fail_on_bucky_bit_character_escapes;
74 #endif
72 75
73 /* This symbol is also used in fns.c */ 76 /* This symbol is also used in fns.c */
74 #define FEATUREP_SYNTAX 77 #define FEATUREP_SYNTAX
75 78
76 #ifdef FEATUREP_SYNTAX 79 #ifdef FEATUREP_SYNTAX
1591 signal_error (Qend_of_file, list1 (READCHARFUN_MAYBE (readcharfun))); 1594 signal_error (Qend_of_file, list1 (READCHARFUN_MAYBE (readcharfun)));
1592 if (c == '\\') 1595 if (c == '\\')
1593 c = read_escape (readcharfun); 1596 c = read_escape (readcharfun);
1594 return c | 0200; 1597 return c | 0200;
1595 1598
1596 #ifndef MULE 1599 /* Originally, FSF_KEYS provided a degree of FSF Emacs
1597 #define FSF_KEYS 1600 compatibility by defining character "modifiers" alt, super,
1598 #endif 1601 hyper and shift to infest the characters (i.e. integers).
1602
1603 However, this doesn't cut it for XEmacs 20, which
1604 distinguishes characters from integers. Without Mule, ?\H-a
1605 simply returns ?a because every character is clipped into
1606 0-255. Under Mule it is much worse -- ?\H-a with FSF_KEYS
1607 produces an illegal character, and moves us to crash-land.
1608
1609 For these reasons, FSF_KEYS hack is useless and without hope
1610 of ever working under XEmacs 20. */
1611 #undef FSF_KEYS
1612
1599 #ifdef FSF_KEYS 1613 #ifdef FSF_KEYS
1600
1601 #define alt_modifier (0x040000) 1614 #define alt_modifier (0x040000)
1602 #define super_modifier (0x080000) 1615 #define super_modifier (0x080000)
1603 #define hyper_modifier (0x100000) 1616 #define hyper_modifier (0x100000)
1604 #define shift_modifier (0x200000) 1617 #define shift_modifier (0x200000)
1605 /* fsf uses a different modifiers for meta and control. Possibly 1618 /* fsf uses a different modifiers for meta and control. Possibly
3144 Directory in which XEmacs sources were found when XEmacs was built. 3157 Directory in which XEmacs sources were found when XEmacs was built.
3145 You cannot count on them to still be there! 3158 You cannot count on them to still be there!
3146 */ ); 3159 */ );
3147 Vsource_directory = Qnil; 3160 Vsource_directory = Qnil;
3148 3161
3162 /* See read_escape(). */
3163 #if 0
3149 /* Used to be named `puke-on-fsf-keys' */ 3164 /* Used to be named `puke-on-fsf-keys' */
3150 DEFVAR_BOOL ("fail-on-bucky-bit-character-escapes", 3165 DEFVAR_BOOL ("fail-on-bucky-bit-character-escapes",
3151 &fail_on_bucky_bit_character_escapes /* 3166 &fail_on_bucky_bit_character_escapes /*
3152 Whether `read' should signal an error when it encounters unsupported 3167 Whether `read' should signal an error when it encounters unsupported
3153 character escape syntaxes or just read them incorrectly. 3168 character escape syntaxes or just read them incorrectly.
3154 */ ); 3169 */ );
3155 fail_on_bucky_bit_character_escapes = 0; 3170 fail_on_bucky_bit_character_escapes = 0;
3171 #endif
3156 3172
3157 /* This must be initialized in init_lread otherwise it may start out 3173 /* This must be initialized in init_lread otherwise it may start out
3158 with values saved when the image is dumped. */ 3174 with values saved when the image is dumped. */
3159 staticpro (&Vload_descriptor_list); 3175 staticpro (&Vload_descriptor_list);
3160 3176