diff options
| author | Kevin Ryde <user42@zip.com.au> | 2009-10-27 22:52:19 +0000 |
|---|---|---|
| committer | Kevin Ryde <user42@zip.com.au> | 2009-10-27 22:52:19 +0000 |
| commit | 849f465a05aa93b96a3b3e89345a88af4b0b0c90 (patch) | |
| tree | 4c81b17755e20b5f089968bd767a5569b65d9832 /lisp/emacs-lisp | |
| parent | 45cf6cbd8cf89861294e4ac755efbb749c075691 (diff) | |
| download | emacs-849f465a05aa93b96a3b3e89345a88af4b0b0c90.tar.gz emacs-849f465a05aa93b96a3b3e89345a88af4b0b0c90.tar.bz2 emacs-849f465a05aa93b96a3b3e89345a88af4b0b0c90.zip | |
* 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).
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/checkdoc.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index 0edfa4ab4be..6b226be0b28 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el @@ -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 @@ If the offending word is in a piece of quoted text, then it is skipped." (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) |