Mercurial > emacs
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) |