From beba7c9efe84f5a07ed1422e4ca7873d4c2bf78c Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Sat, 31 Oct 1992 04:55:02 +0000 Subject: * casetab.c (set_case_table): Declare this to be static, and return a Lisp_Object. Add static declaration for this before Fset_case_table and Fset_standard_case_table. (Fset_case_table, Fset_standard_case_table): Return the return value of set_case_table, instead of returning garbage. --- src/casetab.c | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'src/casetab.c') diff --git a/src/casetab.c b/src/casetab.c index fa8375ccc69..3ea81e36bf1 100644 --- a/src/casetab.c +++ b/src/casetab.c @@ -88,6 +88,8 @@ This is the one used for new buffers.") Fcons (Vascii_eqv_table, Qnil)))); } +static Lisp_Object set_case_table (); + DEFUN ("set-case-table", Fset_case_table, Sset_case_table, 1, 1, 0, "Select a new case table for the current buffer.\n\ A case table is a list (DOWNCASE UPCASE CANONICALIZE EQUIVALENCES)\n\ @@ -106,7 +108,7 @@ Both CANONICALIZE and EQUIVALENCES may be nil, in which case\n\ (table) Lisp_Object table; { - set_case_table (table, 0); + return set_case_table (table, 0); } DEFUN ("set-standard-case-table", @@ -116,9 +118,10 @@ See `set-case-table' for more info on case tables.") (table) Lisp_Object table; { - set_case_table (table, 1); + return set_case_table (table, 1); } +static Lisp_Object set_case_table (table, standard) Lisp_Object table; int standard; -- cgit v1.2.1