From 26a27884805a63e39f46f612fbe6f8fa618c499d Mon Sep 17 00:00:00 2001 From: Jari Aalto Date: Fri, 21 Jan 2011 13:12:32 -0500 Subject: [PATCH] * 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 --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/checkdoc.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) 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 -- 2.39.5