comparison lisp/emacs-lisp/checkdoc.el @ 105783:588c96104e0c

* 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).

105782:65f84b737fd8

;;     not specifically docstring related.  Would this even be useful?

;;; Code:
(defvar checkdoc-version "0.6.1"
  "Release version of checkdoc you are currently running.")

(defvar compilation-error-regexp-alist)
(defvar compilation-mode-font-lock-keywords)

(defgroup checkdoc nil

				(looking-at "`\\|\"\\|\\.\\|\\\\")))
			 ;; surrounded by /, as in a URL or filename: /emacs/
			 (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)))))
		    (if (checkdoc-autofix-ask-replace
			 b e (format "Text %s should be capitalized.  Fix? "
				     text)
			 (capitalize text) t)
			nil

105783:588c96104e0c

;;     not specifically docstring related.  Would this even be useful?

;;; Code:
(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)

(defgroup checkdoc nil

				(looking-at "`\\|\"\\|\\.\\|\\\\")))
			 ;; surrounded by /, as in a URL or filename: /emacs/
			 (not (and (= ?/ (char-after e))
				   (= ?/ (char-before b))))
			 (not (checkdoc-in-example-string-p begin end))
			 ;; 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)
			 (capitalize text) t)
			nil