aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorStefan Monnier2008-02-22 17:24:05 +0000
committerStefan Monnier2008-02-22 17:24:05 +0000
commit43d1af233119925f06b9dd8da6ce5380f4b213ee (patch)
tree50afae81ef724f2910b04aaa727cbc09fcd6b855 /src
parentd007adda8978b5ba63ed631c1f83b91adb452024 (diff)
downloademacs-43d1af233119925f06b9dd8da6ce5380f4b213ee.tar.gz
emacs-43d1af233119925f06b9dd8da6ce5380f4b213ee.zip
(CHECK_CHARSET, CHECK_CHARSET_GET_ID, CHECK_CHARSET_GET_ATTR):
Don't use the inexistent return value of wrong_type_argument.
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog6
-rw-r--r--src/charset.h6
2 files changed, 9 insertions, 3 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index bce13768775..eec2143b392 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,9 @@
12008-02-22 Stefan Monnier <monnier@iro.umontreal.ca>
2
3 * charset.h (CHECK_CHARSET, CHECK_CHARSET_GET_ID)
4 (CHECK_CHARSET_GET_ATTR): Don't use the inexistent return value of
5 wrong_type_argument.
6
12008-02-22 Kenichi Handa <handa@ni.aist.go.jp> 72008-02-22 Kenichi Handa <handa@ni.aist.go.jp>
2 8
3 * Makefile.in (lisp): Remove devanagari.el, kannada.el, 9 * Makefile.in (lisp): Remove devanagari.el, kannada.el,
diff --git a/src/charset.h b/src/charset.h
index 3d31d903100..4b8bee4520d 100644
--- a/src/charset.h
+++ b/src/charset.h
@@ -339,7 +339,7 @@ extern struct charset *emacs_mule_charset[256];
339#define CHECK_CHARSET(x) \ 339#define CHECK_CHARSET(x) \
340 do { \ 340 do { \
341 if (! SYMBOLP (x) || CHARSET_SYMBOL_HASH_INDEX (x) < 0) \ 341 if (! SYMBOLP (x) || CHARSET_SYMBOL_HASH_INDEX (x) < 0) \
342 x = wrong_type_argument (Qcharsetp, (x)); \ 342 wrong_type_argument (Qcharsetp, (x)); \
343 } while (0) 343 } while (0)
344 344
345 345
@@ -350,7 +350,7 @@ extern struct charset *emacs_mule_charset[256];
350 int idx; \ 350 int idx; \
351 \ 351 \
352 if (! SYMBOLP (x) || (idx = CHARSET_SYMBOL_HASH_INDEX (x)) < 0) \ 352 if (! SYMBOLP (x) || (idx = CHARSET_SYMBOL_HASH_INDEX (x)) < 0) \
353 x = wrong_type_argument (Qcharsetp, (x)); \ 353 wrong_type_argument (Qcharsetp, (x)); \
354 id = XINT (AREF (HASH_VALUE (XHASH_TABLE (Vcharset_hash_table), idx), \ 354 id = XINT (AREF (HASH_VALUE (XHASH_TABLE (Vcharset_hash_table), idx), \
355 charset_id)); \ 355 charset_id)); \
356 } while (0) 356 } while (0)
@@ -361,7 +361,7 @@ extern struct charset *emacs_mule_charset[256];
361#define CHECK_CHARSET_GET_ATTR(x, attr) \ 361#define CHECK_CHARSET_GET_ATTR(x, attr) \
362 do { \ 362 do { \
363 if (!SYMBOLP (x) || NILP (attr = CHARSET_SYMBOL_ATTRIBUTES (x))) \ 363 if (!SYMBOLP (x) || NILP (attr = CHARSET_SYMBOL_ATTRIBUTES (x))) \
364 x = wrong_type_argument (Qcharsetp, (x)); \ 364 wrong_type_argument (Qcharsetp, (x)); \
365 } while (0) 365 } while (0)
366 366
367 367