Mercurial > emacs

changeset 1506:5fe52748a72c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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.
author Jim Blandy <jimb@redhat.com>
date Sat, 31 Oct 1992 04:55:02 +0000
parents 4f138b03e5ab
children b265afeb9203
files src/casetab.c
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/casetab.c	Sat Oct 31 04:54:35 1992 +0000
+++ b/src/casetab.c	Sat Oct 31 04:55:02 1992 +0000
@@ -88,6 +88,8 @@
 			      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 @@
   (table)
      Lisp_Object table;
 {
-  set_case_table (table, 0);
+  return set_case_table (table, 0);
 }
 
 DEFUN ("set-standard-case-table",
@@ -116,9 +118,10 @@
   (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;