From: tomo Date: Tue, 16 Oct 2001 05:08:23 +0000 (+0000) Subject: Move EXFUN for Fmake_char and Fdecode_char into chartab.h. X-Git-Tag: r21-2-41-utf-2000-0_18-1~190 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a8607b4c684260f2e9ee2b547652efe62e865979;p=chise%2Fxemacs-chise.git- Move EXFUN for Fmake_char and Fdecode_char into chartab.h. (Fdefine_char): Modify for Fdecode_char. (Ffind_char): Likewise. --- diff --git a/src/chartab.c b/src/chartab.c index 2c4f368..e941464 100644 --- a/src/chartab.c +++ b/src/chartab.c @@ -3102,9 +3102,6 @@ the entire table. return slarg.retval; } -EXFUN (Fmake_char, 3); -EXFUN (Fdecode_char, 2); - DEFUN ("define-char", Fdefine_char, 1, 1, 0, /* Store character's ATTRIBUTES. */ @@ -3131,7 +3128,7 @@ Store character's ATTRIBUTES. if (CONSP (cell)) character = Fmake_char (ccs, Fcar (cell), Fcar (Fcdr (cell))); else - character = Fdecode_char (ccs, cell); + character = Fdecode_char (ccs, cell, Qnil); if (!NILP (character)) goto setup_attributes; } @@ -3190,7 +3187,7 @@ Retrieve the character of the given ATTRIBUTES. if (CONSP (cell)) return Fmake_char (ccs, Fcar (cell), Fcar (Fcdr (cell))); else - return Fdecode_char (ccs, cell); + return Fdecode_char (ccs, cell, Qnil); } rest = Fcdr (rest); }