From f43bab31f13260966c18c0f15062b91cefb6cd32 Mon Sep 17 00:00:00 2001 From: Jari Aalto Date: Wed, 22 Dec 2010 11:58:05 +0200 Subject: [PATCH] emacs-lisp/checkdoc.el: Fix "Lisp symbol `some-symbol' should appear in quotes" Organization: Private Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: 8bit Do not match strings that are immediately followed by "(", like manual page refs some-page(1). Signed-off-by: Jari Aalto --- lisp/emacs-lisp/checkdoc.el | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index 0a3b3c9..42ac504 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el @@ -1798,7 +1798,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 -- 1.7.2.3