comparison lisp/emacs-lisp/checkdoc.el @ 84335:cc5b3cf69a31

(checkdoc-minor-mode-string): New. (checkdoc-minor-mode): Allow user to specify lighter via checkdoc-minor-mode-string.
author Glenn Morris <rgm@gnu.org>
date Thu, 06 Sep 2007 05:19:23 +0000
parents e5a68f18fcb9
children 7e5ed8ab5358
comparison
equal deleted inserted replaced
84334:ffb55a48639f 84335:cc5b3cf69a31
196 (defgroup checkdoc nil 196 (defgroup checkdoc nil
197 "Support for doc string checking in Emacs Lisp." 197 "Support for doc string checking in Emacs Lisp."
198 :prefix "checkdoc" 198 :prefix "checkdoc"
199 :group 'lisp 199 :group 'lisp
200 :version "20.3") 200 :version "20.3")
201
202 (defcustom checkdoc-minor-mode-string " CDoc"
203 "*String to display in mode line when Checkdoc mode is enabled; nil for none."
204 :type '(choice string (const :tag "None" nil))
205 :group 'checkdoc
206 :version "23.1")
201 207
202 (defcustom checkdoc-autofix-flag 'semiautomatic 208 (defcustom checkdoc-autofix-flag 'semiautomatic
203 "Non-nil means attempt auto-fixing of doc strings. 209 "Non-nil means attempt auto-fixing of doc strings.
204 If this value is the symbol `query', then the user is queried before 210 If this value is the symbol `query', then the user is queried before
205 any change is made. If the value is `automatic', then all changes are 211 any change is made. If the value is `automatic', then all changes are
1249 In Checkdoc minor mode, the usual bindings for `eval-defun' which is 1255 In Checkdoc minor mode, the usual bindings for `eval-defun' which is
1250 bound to \\<checkdoc-minor-mode-map>\\[checkdoc-eval-defun] and `checkdoc-eval-current-buffer' are overridden to include 1256 bound to \\<checkdoc-minor-mode-map>\\[checkdoc-eval-defun] and `checkdoc-eval-current-buffer' are overridden to include
1251 checking of documentation strings. 1257 checking of documentation strings.
1252 1258
1253 \\{checkdoc-minor-mode-map}" 1259 \\{checkdoc-minor-mode-map}"
1254 nil " CDoc" nil 1260 nil checkdoc-minor-mode-string nil
1255 :group 'checkdoc) 1261 :group 'checkdoc)
1256 1262
1257 ;;; Subst utils 1263 ;;; Subst utils
1258 ;; 1264 ;;
1259 (defsubst checkdoc-run-hooks (hookvar &rest args) 1265 (defsubst checkdoc-run-hooks (hookvar &rest args)