* 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 ac0181e9632db073a3a6f94e976d10eea8daa89c..83f3e3f5bc4944dde88db1b619c1db293f630e23 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-01-21  Jari Aalto  <jari.aalto@cante.net>
+
+       * 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  <monnier@iro.umontreal.ca>
 
        * 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 a89845285b937be0d86dad3da1dd2ab8663c5b31..6726e83c77b1949485c7bd6b918ca8fe9ed6e6d2 100644 (file)
--- 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