Commit 8bf7ed70 authored by Kevin Ryde's avatar Kevin Ryde
Browse files

* emacs-lisp/checkdoc.el (checkdoc-proper-noun-regexp): Match noun

at end of sentence (my Bug#4818).
parent 951802d0
2009-11-08 Kevin Ryde <user42@zip.com.au>
* emacs-lisp/checkdoc.el (checkdoc-proper-noun-regexp): Match noun
at end of sentence (my Bug#4818).
2009-11-08 Jared Finder <jfinder@crypticstudios.com> 2009-11-08 Jared Finder <jfinder@crypticstudios.com>
* progmodes/compile.el (compilation-error-regexp-alist-alist): * progmodes/compile.el (compilation-error-regexp-alist-alist):
......
...@@ -331,12 +331,15 @@ This should be set in an Emacs Lisp file's local variables." ...@@ -331,12 +331,15 @@ This should be set in an Emacs Lisp file's local variables."
"List of words (not capitalized) which should be capitalized.") "List of words (not capitalized) which should be capitalized.")
(defvar checkdoc-proper-noun-regexp (defvar checkdoc-proper-noun-regexp
;; "[.!?]" is for noun at end of a sentence, since those chars
;; are symbol syntax in emacs-lisp-mode and so don't match \\_>.
;; The \" allows it to be the last sentence in a docstring too.
(let ((expr "\\_<\\(") (let ((expr "\\_<\\(")
(l checkdoc-proper-noun-list)) (l checkdoc-proper-noun-list))
(while l (while l
(setq expr (concat expr (car l) (if (cdr l) "\\|" "")) (setq expr (concat expr (car l) (if (cdr l) "\\|" ""))
l (cdr l))) l (cdr l)))
(concat expr "\\)\\_>")) (concat expr "\\)\\(\\_>\\|[.!?][ \t\n\"]\\)"))
"Regular expression derived from `checkdoc-proper-noun-regexp'.") "Regular expression derived from `checkdoc-proper-noun-regexp'.")
(defvar checkdoc-common-verbs-regexp nil (defvar checkdoc-common-verbs-regexp nil
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment