Mercurial > hg > xemacs-beta

comparison src/gui-x.c @ 280:7df0dd720c89 r21-0b38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b38
author cvs
date Mon, 13 Aug 2007 10:32:22 +0200
parents c5d627a313b1
children 558f606b08ae
comparison
equal deleted inserted replaced
279:c20b2fb5bb0a 280:7df0dd720c89
34 #include "buffer.h" 34 #include "buffer.h"
35 #include "device.h" 35 #include "device.h"
36 #include "frame.h" 36 #include "frame.h"
37 #include "gui.h" 37 #include "gui.h"
38 #include "opaque.h" 38 #include "opaque.h"
39 #include "bytecode.h" /* for struct Lisp_Compiled_Function */
39 40
40 #ifdef HAVE_POPUPS 41 #ifdef HAVE_POPUPS
41 Lisp_Object Qmenu_no_selection_hook; 42 Lisp_Object Qmenu_no_selection_hook;
42 #endif 43 #endif
43 44
256 if (((EMACS_INT) client_data) == -1) 257 if (((EMACS_INT) client_data) == -1)
257 { 258 {
258 fn = Qrun_hooks; 259 fn = Qrun_hooks;
259 arg = Qmenu_no_selection_hook; 260 arg = Qmenu_no_selection_hook;
260 } 261 }
261 else if (SYMBOLP (data)) 262 else if (SYMBOLP (data)
263 /* poor man's commandp */
264 || (COMPILED_FUNCTIONP (data)
265 && XCOMPILED_FUNCTION (data)->flags.interactivep)
266 || (EQ (XCAR (data), Qlambda)
267 && !NILP (Fassq (Qinteractive, Fcdr (Fcdr (data))))))
262 { 268 {
263 fn = Qcall_interactively; 269 fn = Qcall_interactively;
264 arg = data; 270 arg = data;
265 } 271 }
266 else if (CONSP (data)) 272 else if (CONSP (data))