Commit 849f465a authored by Kevin Ryde's avatar Kevin Ryde
Browse files

* 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).
parent 45cf6cbd
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment