Mercurial > emacs

comparison src/lisp.h @ 51035:b17fe74b2af3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 9c6d139afc0f
children 70fb9c159754
comparison
equal deleted inserted replaced
51034:a5bb1c5181ac 51035:b17fe74b2af3
1704 CURRENT-BUFFER was active. If WHERE is nil this means we saw the 1704 CURRENT-BUFFER was active. If WHERE is nil this means we saw the
1705 default value when binding SYMBOL. WHERE being a buffer or frame 1705 default value when binding SYMBOL. WHERE being a buffer or frame
1706 means we saw a buffer-local or frame-local value. Other values of 1706 means we saw a buffer-local or frame-local value. Other values of
1707 WHERE mean an internal error. */ 1707 WHERE mean an internal error. */
1708 1708
1709 typedef Lisp_Object (*specbinding_func) P_ ((Lisp_Object));
1710
1709 struct specbinding 1711 struct specbinding
1710 { 1712 {
1711 volatile Lisp_Object symbol, old_value; 1713 volatile Lisp_Object symbol, old_value;
1712 volatile Lisp_Object (*func) P_ ((Lisp_Object)); 1714 volatile specbinding_func func;
1713 Lisp_Object unused; /* Dividing by 16 is faster than by 12 */ 1715 Lisp_Object unused; /* Dividing by 16 is faster than by 12 */
1714 }; 1716 };
1715 1717
1716 extern struct specbinding *specpdl; 1718 extern struct specbinding *specpdl;
1717 extern volatile struct specbinding *specpdl_ptr; 1719 extern volatile struct specbinding *specpdl_ptr;
2311 EXFUN (Fstring_equal, 2); 2313 EXFUN (Fstring_equal, 2);
2312 EXFUN (Fcompare_strings, 7); 2314 EXFUN (Fcompare_strings, 7);
2313 EXFUN (Fstring_lessp, 2); 2315 EXFUN (Fstring_lessp, 2);
2314 extern int char_table_translate P_ ((Lisp_Object, int)); 2316 extern int char_table_translate P_ ((Lisp_Object, int));
2315 extern void map_char_table P_ ((void (*) (Lisp_Object, Lisp_Object, Lisp_Object), 2317 extern void map_char_table P_ ((void (*) (Lisp_Object, Lisp_Object, Lisp_Object),
2316 Lisp_Object, Lisp_Object, Lisp_Object, int, 2318 Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, int,
2317 Lisp_Object *)); 2319 Lisp_Object *));
2318 extern Lisp_Object char_table_ref_and_index P_ ((Lisp_Object, int, int *)); 2320 extern Lisp_Object char_table_ref_and_index P_ ((Lisp_Object, int, int *));
2319 extern void syms_of_fns P_ ((void)); 2321 extern void syms_of_fns P_ ((void));
2320 2322
2321 /* Defined in floatfns.c */ 2323 /* Defined in floatfns.c */