From: Jari Aalto Date: Fri, 21 Jan 2011 18:12:32 +0000 (-0500) Subject: * lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine): X-Git-Tag: emacs-pretest-23.2.93~50 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=26a27884805a63e39f46f612fbe6f8fa618c499d;p=emacs.git * lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine): Assume foo(bar) is a manpage reference rather than some unquoted symbol. Fixes: debbugs:7705 --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ac0181e9632..83f3e3f5bc4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-01-21 Jari Aalto + + * emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine): (bug#7705) + Assume foo(bar) is a manpage reference rather than some unquoted symbol. + 2011-01-21 Stefan Monnier * subr.el (shell-quote-argument): Properly quote \n (bug#7687). diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index a89845285b9..6726e83c77b 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el @@ -1817,7 +1817,9 @@ Replace with \"%s\"? " original replace) (let ((found nil) (start (point)) (msg nil) (ms nil)) (while (and (not msg) (re-search-forward - "[^-([`':a-zA-Z]\\(\\w+[:-]\\(\\w\\|\\s_\\)+\\)[^]']" + ;; Ignore manual page refereces like + ;; git-config(1). + "[^-([`':a-zA-Z]\\(\\w+[:-]\\(\\w\\|\\s_\\)+\\)[^](']" e t)) (setq ms (match-string 1)) ;; A . is a \s_ char, so we must remove periods from