Mercurial > emacs
changeset 64182:176ffa79bdd8
(checkdoc-proper-noun-list):
Check for "emacs", etc., as entire symbol, not just as word.
(checkdoc-file-comments-engine): Use regexp-quote on FN.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 08 Jul 2005 22:54:57 +0000 |
| parents | 331eb59e77d4 |
| children | c2ff1112f5ef |
| files | lisp/emacs-lisp/checkdoc.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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