Mercurial > emacs
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) |