diff options
| author | Noah Friedman | 1996-07-14 16:46:25 +0000 |
|---|---|---|
| committer | Noah Friedman | 1996-07-14 16:46:25 +0000 |
| commit | 58ee38cab88f4558ac3e5cd1d6acff2da7000aba (patch) | |
| tree | 4dc71d4d151b7cefaf25f28c68c6866473a51248 | |
| parent | fb98e6ce187f2cfc8ce6ebaf8823c9abdbdebea0 (diff) | |
| download | emacs-58ee38cab88f4558ac3e5cd1d6acff2da7000aba.tar.gz emacs-58ee38cab88f4558ac3e5cd1d6acff2da7000aba.zip | |
(eldoc-mode): Toggle eldoc-mode if no prefix given.
| -rw-r--r-- | lisp/emacs-lisp/eldoc.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/eldoc.el b/lisp/emacs-lisp/eldoc.el index 26f6ce751ff..5c4683d4138 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/21 15:21:34 $|$Revision: 1.4 $|~/misc/eldoc.el.gz| | 14 | ;; $Date: 1995/11/25 03:45:25 $|$Revision: 1.5 $|~/misc/eldoc.el.gz| |
| 15 | 15 | ||
| 16 | ;; $Id: eldoc.el,v 1.4 1995/11/21 15:21:34 friedman Exp friedman $ | 16 | ;; $Id: eldoc.el,v 1.5 1995/11/25 03:45:25 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 |
| @@ -147,8 +147,10 @@ It is probably best to manipulate this data structure with the commands | |||
| 147 | 'post-command-hook) | 147 | 'post-command-hook) |
| 148 | 'eldoc-mode-print-current-symbol-info) | 148 | 'eldoc-mode-print-current-symbol-info) |
| 149 | 149 | ||
| 150 | (setq eldoc-mode | 150 | (setq eldoc-mode (if prefix |
| 151 | (>= (prefix-numeric-value prefix) 0)) | 151 | (>= (prefix-numeric-value prefix) 0) |
| 152 | (not eldoc-mode))) | ||
| 153 | |||
| 152 | (and (interactive-p) | 154 | (and (interactive-p) |
| 153 | (if eldoc-mode | 155 | (if eldoc-mode |
| 154 | (message "eldoc-mode is enabled") | 156 | (message "eldoc-mode is enabled") |