# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1120863297 0
# Node ID 176ffa79bdd8f5be4ca30ed65548e863d4026134
# Parent  331eb59e77d41b05c4fd44648099844cc09b6da4
(checkdoc-proper-noun-list):
Check for "emacs", etc., as entire symbol, not just as word.
(checkdoc-file-comments-engine): Use regexp-quote on FN.

diff -r 331eb59e77d4 -r 176ffa79bdd8 lisp/emacs-lisp/checkdoc.el
--- a/lisp/emacs-lisp/checkdoc.el	Fri Jul 08 22:53:47 2005 +0000
+++ b/lisp/emacs-lisp/checkdoc.el	Fri Jul 08 22:54:57 2005 +0000
@@ -317,12 +317,12 @@
   "List of words (not capitalized) which should be capitalized.")
 
 (defvar checkdoc-proper-noun-regexp
-  (let ((expr "\\<\\(")
+  (let ((expr "\\_<\\(")
 	(l checkdoc-proper-noun-list))
     (while l
       (setq expr (concat expr (car l) (if (cdr l) "\\|" ""))
 	    l (cdr l)))
-    (concat expr "\\)\\>"))
+    (concat expr "\\)\\_>"))
   "Regular expression derived from `checkdoc-proper-noun-regexp'.")
 
 (defvar checkdoc-common-verbs-regexp nil
@@ -2326,10 +2326,10 @@
 	(save-excursion
 	  (goto-char (point-max))
 	  (if (not (re-search-backward
-		    (concat "^;;;[ \t]+" fn "\\(" (regexp-quote fe)
+		    (concat "^;;;[ \t]+" (regexp-quote fn) "\\(" (regexp-quote fe)
 			    "\\)?[ \t]+ends here[ \t]*$"
 			    "\\|^;;;[ \t]+ End of file[ \t]+"
-			    fn "\\(" (regexp-quote fe) "\\)?")
+			    (regexp-quote fn) "\\(" (regexp-quote fe) "\\)?")
 		    nil t))
 	      (if (checkdoc-y-or-n-p "No identifiable footer!  Add one? ")
 		  (progn