mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-05 11:21:04 -08:00
Code Issues Projects Releases Wiki Activity

(specbinding_func): New typedef.

Browse source 
(struct specbinding): Use specbinding_func, to put the `volatile'
in the right place.

(map_char_table): Declare added arg.
This commit is contained in:
Richard M. Stallman 2003-05-17 12:49:12 +00:00
parent fe72189a11
commit 07c9ebd607
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/lisp.h
View file

@ -1706,10 +1706,12 @@ extern void defvar_kboard P_ ((char *, int));
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 (Fcompare_strings, 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));