diff options
author | Jim Blandy <jimb@redhat.com> | 1992-10-31 04:55:02 +0000 |
---|---|---|
committer | Jim Blandy <jimb@redhat.com> | 1992-10-31 04:55:02 +0000 |
commit | beba7c9efe84f5a07ed1422e4ca7873d4c2bf78c (patch) | |
tree | 5f42f3c4487030c107b8ce15c652dbb8219425c5 /src/casetab.c | |
parent | 1239f888ff1cce2aa60463f97f6203c409a65dae (diff) | |
download | emacs-beba7c9efe84f5a07ed1422e4ca7873d4c2bf78c.tar.gz |
* 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.
Diffstat (limited to 'src/casetab.c')
-rw-r--r-- | src/casetab.c | 7 |
1 files changed, 5 insertions, 2 deletions
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; |