Mercurial > hg > xemacs-beta
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; |