diff src/tooltalk.c @ 2834:172fb92bd156

[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 6fa9919a9a0b
children 1e7cc382eb16
line wrap: on
line diff
--- a/src/tooltalk.c	Mon Jun 27 21:51:16 2005 +0000
+++ b/src/tooltalk.c	Tue Jun 28 11:32:15 2005 +0000
@@ -1289,7 +1289,7 @@
     {
       /* Don't ask the user for confirmation when exiting Emacs */
       Fprocess_kill_without_query (lp, Qnil);
-      fil = wrap_subr (&SFreceive_tooltalk_message);
+      fil = GET_DEFUN_LISP_OBJECT (Freceive_tooltalk_message);
       set_process_filter (lp, fil, 1, 0);
     }
   else