From a8607b4c684260f2e9ee2b547652efe62e865979 Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 16 Oct 2001 05:08:23 +0000 Subject: [PATCH] Move EXFUN for Fmake_char and Fdecode_char into chartab.h. (Fdefine_char): Modify for Fdecode_char. (Ffind_char): Likewise. --- src/chartab.c | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) 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); } -- 1.7.10.4