# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1189055963 0
# Node ID cc5b3cf69a31ecb0a15393cd31e07a40b7df4dcb
# Parent  ffb55a48639fbbbb3209d42880d40c21351aa251
(checkdoc-minor-mode-string): New.
(checkdoc-minor-mode): Allow user to specify lighter via
checkdoc-minor-mode-string.

diff -r ffb55a48639f -r cc5b3cf69a31 lisp/emacs-lisp/checkdoc.el
--- a/lisp/emacs-lisp/checkdoc.el	Thu Sep 06 05:19:06 2007 +0000
+++ b/lisp/emacs-lisp/checkdoc.el	Thu Sep 06 05:19:23 2007 +0000
@@ -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 @@
 checking of documentation strings.
 
 \\{checkdoc-minor-mode-map}"
-  nil " CDoc" nil
+  nil checkdoc-minor-mode-string nil
   :group 'checkdoc)
 
 ;;; Subst utils