Mercurial > emacs
changeset 13591:b2fb0109006d
(eldoc-minor-mode-string): New variable.
| author | Noah Friedman <friedman@splode.com> |
|---|---|
| date | Sat, 18 Nov 1995 22:32:07 +0000 |
| parents | bd48b68249cf |
| children | 426a5dc91b98 |
| files | lisp/emacs-lisp/eldoc.el |
| diffstat | 1 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/eldoc.el Sat Nov 18 18:45:04 1995 +0000 +++ b/lisp/emacs-lisp/eldoc.el Sat Nov 18 22:32:07 1995 +0000 @@ -11,9 +11,9 @@ ;; LCD Archive Entry: ;; eldoc|Noah Friedman|friedman@prep.ai.mit.edu| ;; show function arglist or variable docstring in echo area| -;; $Date: 1995/11/12 21:04:08 $|$Revision: 1.1 $|~/misc/eldoc.el.gz| +;; $Date: 1995/11/13 01:37:40 $|$Revision: 1.2 $|~/misc/eldoc.el.gz| -;; $Id: eldoc.el,v 1.1 1995/11/12 21:04:08 friedman Rel friedman $ +;; $Id: eldoc.el,v 1.2 1995/11/13 01:37:40 friedman Exp friedman $ ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by @@ -115,11 +115,14 @@ ;; be printed again if necessary without reconsing. (defvar eldoc-last-data '(nil . nil)) +(defvar eldoc-minor-mode-string " ElDoc" + "*String to display in mode line when Eldoc Mode is enabled.") + ;; Put this minor mode on the global minor-mode-alist. (or (assq 'eldoc-mode (default-value 'minor-mode-alist)) (setq-default minor-mode-alist (append (default-value 'minor-mode-alist) - '((eldoc-mode " ElDoc"))))) + '((eldoc-mode eldoc-minor-mode-string))))) ;;;###autoload