summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2012-11-15 12:17:23 -0500
committerStefan Monnier <monnier@iro.umontreal.ca>2012-11-15 12:17:23 -0500
commit5c2a71483b029100aabf5d64717120b31f4d6fa4 (patch)
tree32105c5b1b46d4881990b777ec3ab39ef2949006
parent96a6857705884d96b9026e80d2bc551d9079cee2 (diff)
* src/eval.c (Finteractive_p): Revert lexbind-merge mishap.
-rw-r--r--src/ChangeLog16
-rw-r--r--src/eval.c2
2 files changed, 11 insertions, 7 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 9caa5113444..d2e7a96f275 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2012-11-15 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * eval.c (Finteractive_p): Revert lexbind-merge mishap.
+
2012-11-14 Eli Zaretskii <eliz@gnu.org>
* w32proc.c (timer_loop): Make sure SuspendThread and ResumeThread
@@ -28,16 +32,16 @@
* window.c (Fsplit_window_internal): Set combination limit of
new parent window to t iff Vwindow_combination_limit is t;
fixing a regression introduced with the change from 2012-09-22.
- (Fwindow_combination_limit, Fset_window_combination_limit): Fix
- doc-strings.
+ (Fwindow_combination_limit, Fset_window_combination_limit):
+ Fix doc-strings.
2012-11-06 Eli Zaretskii <eliz@gnu.org>
* xdisp.c (try_scrolling): Fix correction of aggressive-scroll
amount when the scroll margins are too large. When scrolling
backwards in the buffer, give up if cannot reach point or the
- scroll margin within a reasonable number of screen lines. Fixes
- point position in window under scroll-up/down-aggressively when
+ scroll margin within a reasonable number of screen lines.
+ Fixes point position in window under scroll-up/down-aggressively when
point is positioned many lines beyond the window top/bottom.
(Bug#12811)
@@ -118,8 +122,8 @@
2012-10-29 Daniel Colascione <dancol@dancol.org>
- * cygw32.h, cygw32.c (Qutf_16le, from_unicode, to_unicode): In
- preparation for fixing bug#12739, move these functions from
+ * cygw32.h, cygw32.c (Qutf_16le, from_unicode, to_unicode):
+ In preparation for fixing bug#12739, move these functions from
here...
* coding.h, coding.c: ... to here, and compile them only when
diff --git a/src/eval.c b/src/eval.c
index 975204da017..58fa92cd7b5 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -508,7 +508,7 @@ spec that specifies non-nil unconditionally (such as \"p\"); or (ii)
use `called-interactively-p'. */)
(void)
{
- return interactive_p () ? Qt : Qnil;
+ return (INTERACTIVE && interactive_p ()) ? Qt : Qnil;
}