From: Glenn Morris <rgm@gnu.org>
Date: Thu, 6 Sep 2007 05:19:23 +0000 (+0000)
Subject: (checkdoc-minor-mode-string): New.
X-Git-Tag: emacs-pretest-23.0.90~11071
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b92317dc01849f89f036e43ea273adc81d11df11;p=emacs.git

(checkdoc-minor-mode-string): New.
(checkdoc-minor-mode): Allow user to specify lighter via
checkdoc-minor-mode-string.
---

diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el
index e1835d75fcb..1b32732c59a 100644
--- a/lisp/emacs-lisp/checkdoc.el
+++ b/lisp/emacs-lisp/checkdoc.el
@@ -199,6 +199,12 @@
   :group 'lisp
   :version "20.3")
 
+(defcustom checkdoc-minor-mode-string " CDoc"
+  "*String to display in mode line when Checkdoc mode is enabled; nil for none."
+  :type '(choice string (const :tag "None" nil))
+  :group 'checkdoc
+  :version "23.1")
+
 (defcustom checkdoc-autofix-flag 'semiautomatic
   "Non-nil means attempt auto-fixing of doc strings.
 If this value is the symbol `query', then the user is queried before
@@ -1251,7 +1257,7 @@ bound to \\<checkdoc-minor-mode-map>\\[checkdoc-eval-defun] and `checkdoc-eval-c
 checking of documentation strings.
 
 \\{checkdoc-minor-mode-map}"
-  nil " CDoc" nil
+  nil checkdoc-minor-mode-string nil
   :group 'checkdoc)
 
 ;;; Subst utils