[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/src eval.c
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] emacs/src eval.c |
Date: |
Tue, 24 Mar 2009 16:37:25 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Chong Yidong <cyd> 09/03/24 16:37:25
Modified files:
src : eval.c
Log message:
(Fcommandp): Use Qinteractive_form.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/src/eval.c?cvsroot=emacs&r1=1.309&r2=1.310
Patches:
Index: eval.c
===================================================================
RCS file: /sources/emacs/emacs/src/eval.c,v
retrieving revision 1.309
retrieving revision 1.310
diff -u -b -r1.309 -r1.310
--- eval.c 8 Jan 2009 03:15:36 -0000 1.309
+++ eval.c 24 Mar 2009 16:37:25 -0000 1.310
@@ -97,6 +97,7 @@
Lisp_Object Qdebug_on_error;
Lisp_Object Qdeclare;
Lisp_Object Qdebug;
+extern Lisp_Object Qinteractive_form;
/* This holds either the symbol `run-hooks' or nil.
It is nil at an early stage of startup, and when Emacs
@@ -2084,7 +2085,7 @@
fun = function;
while (SYMBOLP (fun))
{
- Lisp_Object tmp = Fget (fun, intern ("interactive-form"));
+ Lisp_Object tmp = Fget (fun, Qinteractive_form);
if (!NILP (tmp))
if_prop = Qt;
fun = Fsymbol_function (fun);
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/src eval.c,
Chong Yidong <=