mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* 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

4
lisp/ChangeLog
View file

@ -1,5 +1,9 @@
2009-11-24 Kevin Ryde <user42@zip.com.au> 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 * emacs-lisp/elint.el (elint-add-required-env): Better error message
when .el source file not found or other error. when .el source file not found or other error.

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 ;; "[.!?]" is for noun at end of a sentence, since those chars
;; are symbol syntax in emacs-lisp-mode and so don't match \\_>. ;; are symbol syntax in emacs-lisp-mode and so don't match \\_>.
;; The \" allows it to be the last sentence in a docstring too. ;; The \" allows it to be the last sentence in a docstring too.
(let ((expr "\\_<\\(") (concat "\\_<"
(l checkdoc-proper-noun-list)) (regexp-opt checkdoc-proper-noun-list t)
(while l "\\(\\_>\\|[.!?][ \t\n\"]\\)")
(setq expr (concat expr (car l) (if (cdr l) "\\|" ""))
l (cdr l)))
(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