changeset 51035:b17fe74b2af3

(specbinding_func): New typedef. (struct specbinding): Use specbinding_func, to put the `volatile' in the right place. (map_char_table): Declare added arg.
author Richard M. Stallman <rms@gnu.org>
date Sat, 17 May 2003 12:49:12 +0000
parents a5bb1c5181ac
children 5a30d8fb640c
files src/lisp.h
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/lisp.h	Sat May 17 12:47:55 2003 +0000
+++ b/src/lisp.h	Sat May 17 12:49:12 2003 +0000
@@ -1706,10 +1706,12 @@
    means we saw a buffer-local or frame-local value.  Other values of
    WHERE mean an internal error.  */
 
+typedef Lisp_Object (*specbinding_func) P_ ((Lisp_Object));
+
 struct specbinding
   {
     volatile Lisp_Object symbol, old_value;
-    volatile Lisp_Object (*func) P_ ((Lisp_Object));
+    volatile specbinding_func func;
     Lisp_Object unused;		/* Dividing by 16 is faster than by 12 */
   };
 
@@ -2313,7 +2315,7 @@
 EXFUN (Fstring_lessp, 2);
 extern int char_table_translate P_ ((Lisp_Object, int));
 extern void map_char_table P_ ((void (*) (Lisp_Object, Lisp_Object, Lisp_Object),
-				Lisp_Object, Lisp_Object, Lisp_Object, int,
+				Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, int,
 				Lisp_Object *));
 extern Lisp_Object char_table_ref_and_index P_ ((Lisp_Object, int, int *));
 extern void syms_of_fns P_ ((void));