[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/checkdoc.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/08/22 23:02:19

Modified files:
        lisp           : ChangeLog 
        lisp/emacs-lisp: checkdoc.el 

Log message:
        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.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15998&r2=1.15999
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/checkdoc.el?cvsroot=emacs&r1=1.72&r2=1.73

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15998
retrieving revision 1.15999
diff -u -b -r1.15998 -r1.15999
--- ChangeLog   22 Aug 2009 21:59:40 -0000      1.15998
+++ ChangeLog   22 Aug 2009 23:02:14 -0000      1.15999
@@ -1,3 +1,11 @@
+2009-08-22  Kevin Ryde  <address@hidden>
+
+       * emacs-lisp/checkdoc.el (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.
+
 2009-08-22  Glenn Morris  <address@hidden>
 
        * hippie-exp.el (he-concat-directory-file-name):

Index: emacs-lisp/checkdoc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/checkdoc.el,v
retrieving revision 1.72
retrieving revision 1.73
diff -u -b -r1.72 -r1.73
--- emacs-lisp/checkdoc.el      22 Jul 2009 02:45:37 -0000      1.72
+++ emacs-lisp/checkdoc.el      22 Aug 2009 23:02:18 -0000      1.73
@@ -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")