Mercurial > hg > xemacs-beta

comparison src/gui.c @ 408:501cfd01ee6d r21-2-34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-34
author cvs
date Mon, 13 Aug 2007 11:18:11 +0200
parents b8cc9ab3f761
children 697ef44129c6
comparison
equal deleted inserted replaced
407:ed6218a7d4d3 408:501cfd01ee6d
79 *fn = Qeval; 79 *fn = Qeval;
80 *arg = list3 (Qsignal, list2 (Qquote, Qquit), Qnil); 80 *arg = list3 (Qsignal, list2 (Qquote, Qquit), Qnil);
81 Vquit_flag = Qt; 81 Vquit_flag = Qt;
82 } 82 }
83 else if (SYMBOLP (data) 83 else if (SYMBOLP (data)
84 || (COMPILED_FUNCTIONP (data) 84 || (COMPILED_FUNCTIONP (data)
85 && XCOMPILED_FUNCTION (data)->flags.interactivep) 85 && XCOMPILED_FUNCTION (data)->flags.interactivep)
86 || (CONSP (data) && (EQ (XCAR (data), Qlambda)) 86 || (CONSP (data) && (EQ (XCAR (data), Qlambda))
87 && !NILP (Fassq (Qinteractive, Fcdr (Fcdr (data)))))) 87 && !NILP (Fassq (Qinteractive, Fcdr (Fcdr (data))))))
88 { 88 {
89 *fn = Qcall_interactively; 89 *fn = Qcall_interactively;
90 *arg = data; 90 *arg = data;
91 } 91 }
92 else if (CONSP (data)) 92 else if (CONSP (data))