Mercurial > emacs
diff lisp/emacs-lisp/checkdoc.el @ 104554:fd66344736c6
Kevin Ryde <user42 at zip.com.au>
(checkdoc-force-history-flag, checkdoc-arguments-in-order-flag):
Add safe-local-variable booleanp.
(checkdoc-symbol-words): Add safe-local-variable for list of strings.
Clarify docstring that the value is strings not symbols.
(checkdoc-list-of-strings-p): New function.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sat, 22 Aug 2009 23:02:14 +0000 |
parents | cce8d50c4566 |
children | f0b66ed6123b |
line wrap: on
line diff
--- a/lisp/emacs-lisp/checkdoc.el Sat Aug 22 22:16:58 2009 +0000 +++ b/lisp/emacs-lisp/checkdoc.el Sat Aug 22 23:02:14 2009 +0000 @@ -223,6 +223,7 @@ This helps document the evolution of, and recent changes to, the package." :group 'checkdoc :type 'boolean) +;;;###autoload(put 'checkdoc-force-history-flag 'safe-local-variable 'booleanp) (defcustom checkdoc-permit-comma-termination-flag nil "Non-nil means the first line of a docstring may end with a comma. @@ -270,6 +271,7 @@ made in the style guide relating to order." :group 'checkdoc :type 'boolean) +;;;###autoload(put 'checkdoc-arguments-in-order-flag 'safe-local-variable 'booleanp) (defvar checkdoc-style-hooks nil "Hooks called after the standard style check is completed. @@ -307,11 +309,19 @@ with a universal argument.") (defcustom checkdoc-symbol-words nil - "A list of symbols which also happen to make good words. -These symbol-words are ignored when unquoted symbols are searched for. + "A list of symbol names (strings) which also happen to make good words. +These words are ignored when unquoted symbols are searched for. This should be set in an Emacs Lisp file's local variables." :group 'checkdoc :type '(repeat (symbol :tag "Word"))) +;;;###autoload(put 'checkdoc-symbol-words 'safe-local-variable 'checkdoc-list-of-strings-p) + +;;;###autoload +(defun checkdoc-list-of-strings-p (obj) + ;; this is a function so it might be shared by checkdoc-proper-noun-list + ;; and/or checkdoc-ispell-lisp-words in the future + (and (listp obj) + (not (memq nil (mapcar 'stringp obj))))) (defvar checkdoc-proper-noun-list '("ispell" "xemacs" "emacs" "lisp")