Mercurial > hg > xemacs-beta

comparison src/gui-x.c @ 284:558f606b08ae r21-0b40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b40
author cvs
date Mon, 13 Aug 2007 10:34:13 +0200
parents 7df0dd720c89
children 57709be46d1b
comparison
equal deleted inserted replaced
283:fa3d41851a08 284:558f606b08ae
258 { 258 {
259 fn = Qrun_hooks; 259 fn = Qrun_hooks;
260 arg = Qmenu_no_selection_hook; 260 arg = Qmenu_no_selection_hook;
261 } 261 }
262 else if (SYMBOLP (data) 262 else if (SYMBOLP (data)
263 /* poor man's commandp */ 263 /* poor man's commandp
264 #### should abstract it out! */
264 || (COMPILED_FUNCTIONP (data) 265 || (COMPILED_FUNCTIONP (data)
265 && XCOMPILED_FUNCTION (data)->flags.interactivep) 266 && XCOMPILED_FUNCTION (data)->flags.interactivep)
266 || (EQ (XCAR (data), Qlambda) 267 || (EQ (XCAR (data), Qlambda)
267 && !NILP (Fassq (Qinteractive, Fcdr (Fcdr (data)))))) 268 && !NILP (Fassq (Qinteractive, Fcdr (Fcdr (data))))))
268 { 269 {