comparison src/lisp-union.h @ 831:5d09ddada9ae

[xemacs-hg @ 2002-05-09 07:15:20 by ben] fix two bugs noted by Steve doprnt.c: Use make_int() not make_char() when error about bad charval, or abort will occur. extents.c: Loop over children, not ourself -- avoid infinite loop. lisp-disunion.h, lisp-union.h: Rename make_char() to make_char_1 for error-checking purposes. lread.c: Syntax error if escape is outside of ISO-8859-1 range. Remove hopelessly broken (and unworkable) FSF_KEYS code. mule-coding.c, search.c: Spacing changes. text.h: New make_char() -- verify that the char value is legal.
author ben
date Thu, 09 May 2002 07:16:38 +0000
parents 6728e641994e
children 2b6fa2618f76
comparison
equal deleted inserted replaced
830:20baef34a0b0 831:5d09ddada9ae
136 return obj; 136 return obj;
137 } 137 }
138 138
139 #endif /* __cplusplus */ 139 #endif /* __cplusplus */
140 140
141
142 DECLARE_INLINE_HEADER ( 141 DECLARE_INLINE_HEADER (
143 Lisp_Object 142 Lisp_Object
144 make_char (Emchar val) 143 make_char_1 (Emchar val)
145 ) 144 )
146 { 145 {
147 Lisp_Object obj; 146 Lisp_Object obj;
148 obj.gu.type = Lisp_Type_Char; 147 obj.gu.type = Lisp_Type_Char;
149 obj.gu.val = val; 148 obj.gu.val = val;