Mercurial > hg > xemacs-beta

comparison src/tooltalk.c @ 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 6fa9919a9a0b
children 1e7cc382eb16
comparison
equal deleted inserted replaced
2833:3a7b185f1a2e 2834:172fb92bd156
1287 Vtooltalk_fd, Vtooltalk_fd); 1287 Vtooltalk_fd, Vtooltalk_fd);
1288 if (!NILP (lp)) 1288 if (!NILP (lp))
1289 { 1289 {
1290 /* Don't ask the user for confirmation when exiting Emacs */ 1290 /* Don't ask the user for confirmation when exiting Emacs */
1291 Fprocess_kill_without_query (lp, Qnil); 1291 Fprocess_kill_without_query (lp, Qnil);
1292 fil = wrap_subr (&SFreceive_tooltalk_message); 1292 fil = GET_DEFUN_LISP_OBJECT (Freceive_tooltalk_message);
1293 set_process_filter (lp, fil, 1, 0); 1293 set_process_filter (lp, fil, 1, 0);
1294 } 1294 }
1295 else 1295 else
1296 { 1296 {
1297 tt_close (); 1297 tt_close ();