procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* emacs-lisp/checkdoc.el (checkdoc-proper-noun-region-engine): Use

Browse source 
help-xref-info-regexp and help-xref-url-regexp to identify links.
(Further to Bug#3921).
This commit is contained in:
Kevin Ryde 2009-10-27 22:52:19 +00:00
parent 45cf6cbd8c
commit 849f465a05
1 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/emacs-lisp/checkdoc.el
View file

@ -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)