Mercurial > hg > xemacs-beta

comparison src/gui.c @ 438:84b14dcb0985 r21-2-27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-27
author cvs
date Mon, 13 Aug 2007 11:32:25 +0200
parents 3ecd8885ac67
children 8de8e3f6228a
comparison
equal deleted inserted replaced
437:e2a4e8b94b82 438:84b14dcb0985
74 get_gui_callback (Lisp_Object data, Lisp_Object *fn, Lisp_Object *arg) 74 get_gui_callback (Lisp_Object data, Lisp_Object *fn, Lisp_Object *arg)
75 { 75 {
76 if (SYMBOLP (data) 76 if (SYMBOLP (data)
77 || (COMPILED_FUNCTIONP (data) 77 || (COMPILED_FUNCTIONP (data)
78 && XCOMPILED_FUNCTION (data)->flags.interactivep) 78 && XCOMPILED_FUNCTION (data)->flags.interactivep)
79 || (EQ (XCAR (data), Qlambda) 79 || (CONSP (data) && (EQ (XCAR (data), Qlambda))
80 && !NILP (Fassq (Qinteractive, Fcdr (Fcdr (data)))))) 80 && !NILP (Fassq (Qinteractive, Fcdr (Fcdr (data))))))
81 { 81 {
82 *fn = Qcall_interactively; 82 *fn = Qcall_interactively;
83 *arg = data; 83 *arg = data;
84 } 84 }