Mercurial > hg > xemacs-beta

diff src/lisp.h @ 2834:172fb92bd156

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-06-28 11:32:13 by crestani] 2005-06-28 Marcus Crestani <crestani@xemacs.org> * gpmevent.c: Remove workaround. * gpmevent.c (Fgpm_enable): Use GET_DEFUN_LISP_OBJECT to get Lisp_Object of a built-in function. * gpmevent.c (syms_of_gpmevent): Remove workaround. * lisp.h (GET_DEFUN_LISP_OBJECT): New. Returns Lisp_Object of a DEFUN. * tooltalk.c (init_tooltalk): Use GET_DEFUN_LISP_OBJECT to get Lisp_Object of a built-in function.
author crestani
date Tue, 28 Jun 2005 11:32:15 +0000
parents a25c824ed558
children b95fe16005fd
line wrap: on
line diff
--- a/src/lisp.h	Mon Jun 27 21:51:16 2005 +0000
+++ b/src/lisp.h	Tue Jun 28 11:32:15 2005 +0000
@@ -3016,6 +3016,8 @@
   };									  \
   static struct Lisp_Subr *S##Fname;					  \
   DOESNT_RETURN_TYPE (Lisp_Object) Fname (DEFUN_##max_args arglist)
+#define GET_DEFUN_LISP_OBJECT(Fname) \
+  wrap_subr (S##Fname);
 #else /* not MC_ALLOC */
 #define DEFUN(lname, Fname, min_args, max_args, prompt, arglist)	\
   Lisp_Object Fname (EXFUN_##max_args);					\
@@ -3056,6 +3058,8 @@
     (lisp_fn_t) Fname							\
   };									\
   DOESNT_RETURN_TYPE (Lisp_Object) Fname (DEFUN_##max_args arglist)
+#define GET_DEFUN_LISP_OBJECT(Fname) \
+  wrap_subr (&S##Fname);
 #endif /* not MC_ALLOC */
 
 /* Heavy ANSI C preprocessor hackery to get DEFUN to declare a