Mercurial > hg > xemacs-beta

changeset 1914:d1312c7bdfab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-02-17 15:22:09 by james] Evaluate safely when in redisplay.
author james
date Tue, 17 Feb 2004 15:22:09 +0000
parents 7473844a83d3
children 3edf1abcc428
files src/gui-x.c
diffstat 1 files changed, 6 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/src/gui-x.c	Tue Feb 17 15:20:57 2004 +0000
+++ b/src/gui-x.c	Tue Feb 17 15:22:09 2004 +0000
@@ -318,11 +318,12 @@
 
 #if 1
   /* Eval the activep slot of the menu item */
-# define wv_set_evalable_slot(slot,form) do {	\
-  Lisp_Object wses_form = (form);		\
-  (slot) = (NILP (wses_form) ? 0 :		\
-	    EQ (wses_form, Qt) ? 1 :		\
-	    !NILP (Feval (wses_form)));		\
+# define wv_set_evalable_slot(slot,form) do {				\
+  Lisp_Object wses_form = (form);					\
+  (slot) = (NILP (wses_form) ? 0 :					\
+	    EQ (wses_form, Qt) ? 1 :					\
+	    !NILP (in_display ? eval_within_redisplay (wses_form)	\
+		   : Feval (wses_form)));				\
 } while (0)
 #else
   /* Treat the activep slot of the menu item as a boolean */