From bd3e1759259f1f64c7e79d0779c4d156128b83d3 Mon Sep 17 00:00:00 2001 From: Noah Friedman Date: Sat, 18 Nov 1995 22:32:07 +0000 Subject: [PATCH] (eldoc-minor-mode-string): New variable. --- lisp/emacs-lisp/eldoc.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/emacs-lisp/eldoc.el b/lisp/emacs-lisp/eldoc.el index ff9826375df..f8a83073f4e 100644 --- a/lisp/emacs-lisp/eldoc.el +++ b/lisp/emacs-lisp/eldoc.el @@ -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 @@ It is probably best to manipulate this data structure with the commands ;; 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 -- 2.39.2