[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/emacs-lisp checkdoc.el
From: |
Kevin Ryde |
Subject: |
[Emacs-diffs] emacs/lisp/emacs-lisp checkdoc.el |
Date: |
Tue, 27 Oct 2009 22:52:19 +0000 |
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)