[Emacs-diffs] emacs/lisp/emacs-lisp checkdoc.el

[Kevin Ryde]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Kevin Ryde <kryde>      09/10/27 22:52:19

Modified files:
        lisp/emacs-lisp: checkdoc.el 

Log message:
        * emacs-lisp/checkdoc.el (checkdoc-proper-noun-region-engine): Use
        help-xref-info-regexp and help-xref-url-regexp to identify links.
        (Further to Bug#3921).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/checkdoc.el?cvsroot=emacs&r1=1.78&r2=1.79

Patches:
Index: checkdoc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/checkdoc.el,v
retrieving revision 1.78
retrieving revision 1.79
diff -u -b -r1.78 -r1.79
--- checkdoc.el 24 Oct 2009 03:44:45 -0000      1.78
+++ checkdoc.el 27 Oct 2009 22:52:19 -0000      1.79
@@ -173,6 +173,9 @@
 (defvar checkdoc-version "0.6.1"
   "Release version of checkdoc you are currently running.")
 
+(require 'help-mode) ;; for help-xref-info-regexp
+(require 'thingatpt) ;; for handy thing-at-point-looking-at
+
 (defvar compilation-error-regexp-alist)
 (defvar compilation-mode-font-lock-keywords)
 
@@ -2017,11 +2020,11 @@
                         (not (and (= ?/ (char-after e))
                                   (= ?/ (char-before b))))
                         (not (checkdoc-in-example-string-p begin end))
-                        ;; info node
-                        (not (save-excursion
-                               (goto-char b)
-                               (looking-back "\\<[Ii]nfo[ 
\t\n]+\\(node\\|anchor\\)[ \t\n]+`("
-                                             (line-beginning-position)))))
+                        ;; info or url links left alone
+                        (not (thing-at-point-looking-at
+                              help-xref-info-regexp))
+                        (not (thing-at-point-looking-at
+                              help-xref-url-regexp)))
                    (if (checkdoc-autofix-ask-replace
                         b e (format "Text %s should be capitalized.  Fix? "
                                     text)