diff options
| author | Noah Friedman | 1995-11-21 15:21:34 +0000 |
|---|---|---|
| committer | Noah Friedman | 1995-11-21 15:21:34 +0000 |
| commit | 44154e3cf52f722a8ef00b34790a435a3d0ceaff (patch) | |
| tree | 33ac7b31d80d1ce9eebdc9cca6fd40275d2c10b0 | |
| parent | c52d98496d25136334d214f23850eda67712dc13 (diff) | |
| download | emacs-44154e3cf52f722a8ef00b34790a435a3d0ceaff.tar.gz emacs-44154e3cf52f722a8ef00b34790a435a3d0ceaff.zip | |
(eldoc-mode-print-current-symbol-info): Do nothing if executing-macro.
| -rw-r--r-- | lisp/emacs-lisp/eldoc.el | 5 |
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))) |