# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 720507302 0
# Node ID 5fe52748a72c76705a4bdc0848efd3620ced6453
# Parent  4f138b03e5abc0e651f3159bfe1268d7bf70861a
	* 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.

diff -r 4f138b03e5ab -r 5fe52748a72c src/casetab.c
--- 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;