comparison lisp/emacs-lisp/checkdoc.el @ 112419:a651b7492a78

* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine): Assume foo(bar) is a manpage reference rather than some unquoted symbol.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 21 Jan 2011 13:12:32 -0500
parents 376148b31b5e
children 9f7614f1a892
comparison
equal deleted inserted replaced
112418:106bf56d370e 112419:a651b7492a78
1815 ;; manual, we normally do use single-quotes for those symbols.) 1815 ;; manual, we normally do use single-quotes for those symbols.)
1816 (save-excursion 1816 (save-excursion
1817 (let ((found nil) (start (point)) (msg nil) (ms nil)) 1817 (let ((found nil) (start (point)) (msg nil) (ms nil))
1818 (while (and (not msg) 1818 (while (and (not msg)
1819 (re-search-forward 1819 (re-search-forward
1820 "[^-([`':a-zA-Z]\\(\\w+[:-]\\(\\w\\|\\s_\\)+\\)[^]']" 1820 ;; Ignore manual page refereces like
1821 ;; git-config(1).
1822 "[^-([`':a-zA-Z]\\(\\w+[:-]\\(\\w\\|\\s_\\)+\\)[^](']"
1821 e t)) 1823 e t))
1822 (setq ms (match-string 1)) 1824 (setq ms (match-string 1))
1823 ;; A . is a \s_ char, so we must remove periods from 1825 ;; A . is a \s_ char, so we must remove periods from
1824 ;; sentences more carefully. 1826 ;; sentences more carefully.
1825 (when (string-match-p "\\.$" ms) 1827 (when (string-match-p "\\.$" ms)