aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorNoah Friedman1995-11-21 15:21:34 +0000
committerNoah Friedman1995-11-21 15:21:34 +0000
commit44154e3cf52f722a8ef00b34790a435a3d0ceaff (patch)
tree33ac7b31d80d1ce9eebdc9cca6fd40275d2c10b0
parentc52d98496d25136334d214f23850eda67712dc13 (diff)
downloademacs-44154e3cf52f722a8ef00b34790a435a3d0ceaff.tar.gz
emacs-44154e3cf52f722a8ef00b34790a435a3d0ceaff.zip
(eldoc-mode-print-current-symbol-info): Do nothing if executing-macro.
-rw-r--r--lisp/emacs-lisp/eldoc.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/eldoc.el b/lisp/emacs-lisp/eldoc.el
index f8a83073f4e..68bb9b6d4de 100644
--- a/lisp/emacs-lisp/eldoc.el
+++ b/lisp/emacs-lisp/eldoc.el
@@ -11,9 +11,9 @@
11;; LCD Archive Entry: 11;; LCD Archive Entry:
12;; eldoc|Noah Friedman|friedman@prep.ai.mit.edu| 12;; eldoc|Noah Friedman|friedman@prep.ai.mit.edu|
13;; show function arglist or variable docstring in echo area| 13;; show function arglist or variable docstring in echo area|
14;; $Date: 1995/11/13 01:37:40 $|$Revision: 1.2 $|~/misc/eldoc.el.gz| 14;; $Date: 1995/11/18 22:32:07 $|$Revision: 1.3 $|~/misc/eldoc.el.gz|
15 15
16;; $Id: eldoc.el,v 1.2 1995/11/13 01:37:40 friedman Exp friedman $ 16;; $Id: eldoc.el,v 1.3 1995/11/18 22:32:07 friedman Exp friedman $
17 17
18;; This program is free software; you can redistribute it and/or modify 18;; This program is free software; you can redistribute it and/or modify
19;; it under the terms of the GNU General Public License as published by 19;; it under the terms of the GNU General Public License as published by
@@ -185,6 +185,7 @@ overwrite them unless it is more restrained."
185 185
186(defun eldoc-mode-print-current-symbol-info () 186(defun eldoc-mode-print-current-symbol-info ()
187 (and eldoc-mode 187 (and eldoc-mode
188 (not executing-macro)
188 ;; Having this mode operate in the minibuffer makes it impossible to 189 ;; Having this mode operate in the minibuffer makes it impossible to
189 ;; see what you're doing. 190 ;; see what you're doing.
190 (not (eq (selected-window) (minibuffer-window))) 191 (not (eq (selected-window) (minibuffer-window)))