2009-11-24 Kevin Ryde <user42@zip.com.au>
+ * emacs-lisp/checkdoc.el (checkdoc-proper-noun-regexp): Build
+ value with regexp-opt instead of explicit joining loop. (My
+ Bug#4927.)
+
* emacs-lisp/elint.el (elint-add-required-env): Better error message
when .el source file not found or other error.
;; "[.!?]" 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