[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/checkdoc.el

[Richard M . Stallman]

Index: emacs/lisp/emacs-lisp/checkdoc.el
diff -c emacs/lisp/emacs-lisp/checkdoc.el:1.46 
emacs/lisp/emacs-lisp/checkdoc.el:1.47
*** emacs/lisp/emacs-lisp/checkdoc.el:1.46      Mon Jul  4 17:33:35 2005
--- emacs/lisp/emacs-lisp/checkdoc.el   Fri Jul  8 22:54:57 2005
***************
*** 317,328 ****
    "List of words (not capitalized) which should be capitalized.")
  
  (defvar checkdoc-proper-noun-regexp
!   (let ((expr "\\<\\(")
        (l checkdoc-proper-noun-list))
      (while l
        (setq expr (concat expr (car l) (if (cdr l) "\\|" ""))
            l (cdr l)))
!     (concat expr "\\)\\>"))
    "Regular expression derived from `checkdoc-proper-noun-regexp'.")
  
  (defvar checkdoc-common-verbs-regexp nil
--- 317,328 ----
    "List of words (not capitalized) which should be capitalized.")
  
  (defvar checkdoc-proper-noun-regexp
!   (let ((expr "\\_<\\(")
        (l checkdoc-proper-noun-list))
      (while l
        (setq expr (concat expr (car l) (if (cdr l) "\\|" ""))
            l (cdr l)))
!     (concat expr "\\)\\_>"))
    "Regular expression derived from `checkdoc-proper-noun-regexp'.")
  
  (defvar checkdoc-common-verbs-regexp nil
***************
*** 2326,2335 ****
        (save-excursion
          (goto-char (point-max))
          (if (not (re-search-backward
!                   (concat "^;;;[ \t]+" fn "\\(" (regexp-quote fe)
                            "\\)?[ \t]+ends here[ \t]*$"
                            "\\|^;;;[ \t]+ End of file[ \t]+"
!                           fn "\\(" (regexp-quote fe) "\\)?")
                    nil t))
              (if (checkdoc-y-or-n-p "No identifiable footer!  Add one? ")
                  (progn
--- 2326,2335 ----
        (save-excursion
          (goto-char (point-max))
          (if (not (re-search-backward
!                   (concat "^;;;[ \t]+" (regexp-quote fn) "\\(" (regexp-quote 
fe)
                            "\\)?[ \t]+ends here[ \t]*$"
                            "\\|^;;;[ \t]+ End of file[ \t]+"
!                           (regexp-quote fn) "\\(" (regexp-quote fe) "\\)?")
                    nil t))
              (if (checkdoc-y-or-n-p "No identifiable footer!  Add one? ")
                  (progn