diff options
| author | Noah Friedman | 1997-03-27 10:44:56 +0000 |
|---|---|---|
| committer | Noah Friedman | 1997-03-27 10:44:56 +0000 |
| commit | 387ccacecfa7bf10a4b3d11c8b9717b1d102c5d4 (patch) | |
| tree | 3d4ad22657f4c9be008f8bf68fb6e434007c3708 | |
| parent | d898671ff0413d426c8ad0a2c10e1026f711dcfc (diff) | |
| download | emacs-387ccacecfa7bf10a4b3d11c8b9717b1d102c5d4.tar.gz emacs-387ccacecfa7bf10a4b3d11c8b9717b1d102c5d4.zip | |
(eldoc-idle-delay): Make defvar, not defconst.
(eldoc-minor-mode-string): Make defvar, not defconst.
(eldoc-argument-case): Make defvar, not defconst.
| -rw-r--r-- | lisp/emacs-lisp/eldoc.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/eldoc.el b/lisp/emacs-lisp/eldoc.el index 77b19422a57..c3c9431060a 100644 --- a/lisp/emacs-lisp/eldoc.el +++ b/lisp/emacs-lisp/eldoc.el | |||
| @@ -7,7 +7,7 @@ | |||
| 7 | ;; Keywords: extensions | 7 | ;; Keywords: extensions |
| 8 | ;; Created: 1995-10-06 | 8 | ;; Created: 1995-10-06 |
| 9 | 9 | ||
| 10 | ;; $Id: eldoc.el,v 1.9 1997/02/04 18:21:29 friedman Exp $ | 10 | ;; $Id: eldoc.el,v 1.10 1997/02/19 10:24:26 friedman Exp $ |
| 11 | 11 | ||
| 12 | ;; This file is part of GNU Emacs. | 12 | ;; This file is part of GNU Emacs. |
| 13 | 13 | ||
| @@ -70,14 +70,14 @@ instead. | |||
| 70 | This variable is buffer-local.") | 70 | This variable is buffer-local.") |
| 71 | (make-variable-buffer-local 'eldoc-mode) | 71 | (make-variable-buffer-local 'eldoc-mode) |
| 72 | 72 | ||
| 73 | (defconst eldoc-idle-delay 0.50 | 73 | (defvar eldoc-idle-delay 0.50 |
| 74 | "*Number of seconds of idle time to wait before printing. | 74 | "*Number of seconds of idle time to wait before printing. |
| 75 | If user input arrives before this interval of time has elapsed after the | 75 | If user input arrives before this interval of time has elapsed after the |
| 76 | last input, no documentation will be printed. | 76 | last input, no documentation will be printed. |
| 77 | 77 | ||
| 78 | If this variable is set to 0, no idle time is required.") | 78 | If this variable is set to 0, no idle time is required.") |
| 79 | 79 | ||
| 80 | (defconst eldoc-minor-mode-string " ElDoc" | 80 | (defvar eldoc-minor-mode-string " ElDoc" |
| 81 | "*String to display in mode line when Eldoc Mode is enabled.") | 81 | "*String to display in mode line when Eldoc Mode is enabled.") |
| 82 | 82 | ||
| 83 | ;; Put this minor mode on the global minor-mode-alist. | 83 | ;; Put this minor mode on the global minor-mode-alist. |
| @@ -86,7 +86,7 @@ If this variable is set to 0, no idle time is required.") | |||
| 86 | (append (default-value 'minor-mode-alist) | 86 | (append (default-value 'minor-mode-alist) |
| 87 | '((eldoc-mode eldoc-minor-mode-string))))) | 87 | '((eldoc-mode eldoc-minor-mode-string))))) |
| 88 | 88 | ||
| 89 | (defconst eldoc-argument-case 'upcase | 89 | (defvar eldoc-argument-case 'upcase |
| 90 | "Case to display argument names of functions, as a symbol. | 90 | "Case to display argument names of functions, as a symbol. |
| 91 | This has two preferred values: `upcase' or `downcase'. | 91 | This has two preferred values: `upcase' or `downcase'. |
| 92 | Actually, any name of a function which takes a string as an argument and | 92 | Actually, any name of a function which takes a string as an argument and |