procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
at end of sentence (my Bug#4818).
This commit is contained in:
Kevin Ryde 2009-11-08 21:49:49 +00:00
parent 951802d0c1
commit 8bf7ed70eb
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/checkdoc.el
View file

@ -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.")
(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 "\\_<\\(")
(l checkdoc-proper-noun-list))
(while l
(setq expr (concat expr (car l) (if (cdr l) "\\|" ""))
l (cdr l)))
(concat expr "\\)\\_>"))
(concat expr "\\)\\(\\_>\\|[.!?][ \t\n\"]\\)"))
"Regular expression derived from `checkdoc-proper-noun-regexp'.")
(defvar checkdoc-common-verbs-regexp nil