summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/checkdoc.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2007-09-06 05:19:23 +0000
committerGlenn Morris <rgm@gnu.org>2007-09-06 05:19:23 +0000
commitb92317dc01849f89f036e43ea273adc81d11df11 (patch)
tree49c8b7565ee5ee41962bfbdc84aae7897f408ab8 /lisp/emacs-lisp/checkdoc.el
parentf657c21b5ad3e2713a3ac313dc42fa5150e004c6 (diff)
downloademacs-b92317dc01849f89f036e43ea273adc81d11df11.tar.gz
emacs-b92317dc01849f89f036e43ea273adc81d11df11.tar.bz2
emacs-b92317dc01849f89f036e43ea273adc81d11df11.zip
(checkdoc-minor-mode-string): New.
(checkdoc-minor-mode): Allow user to specify lighter via checkdoc-minor-mode-string.
Diffstat (limited to 'lisp/emacs-lisp/checkdoc.el')
-rw-r--r--lisp/emacs-lisp/checkdoc.el8
1 files changed, 7 insertions, 1 deletions
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