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

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

Browse source 
value with regexp-opt instead of explicit joining loop.  (My
Bug#4927.)
This commit is contained in:
Kevin Ryde 2009-11-24 23:13:55 +00:00
parent 4cf8971b40
commit f69c67b6f7
2 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -334,12 +334,9 @@ This should be set in an Emacs Lisp file's local variables."
;; "[.!?]" 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 "\\)\\(\\_>\\|[.!?][ \t\n\"]\\)"))
(concat "\\_<"
(regexp-opt checkdoc-proper-noun-list t)
"\\(\\_>\\|[.!?][ \t\n\"]\\)")
"Regular expression derived from `checkdoc-proper-noun-regexp'.")
(defvar checkdoc-common-verbs-regexp nil