diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2021-09-21 20:27:48 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2021-09-21 20:27:48 +0200 |
| commit | a08bb1f6828bd6a7fb93319652e13beab5a25302 (patch) | |
| tree | d3b18d17e685367eb6fa4f85bb7aba97f8105c91 /lisp/emacs-lisp | |
| parent | 2e5752cf981bd9672630db2d66a032c6607fe1a7 (diff) | |
| parent | f41a4ec8e171db19690e3bf2198d8045f153e81f (diff) | |
| download | emacs-a08bb1f6828bd6a7fb93319652e13beab5a25302.tar.gz emacs-a08bb1f6828bd6a7fb93319652e13beab5a25302.tar.bz2 emacs-a08bb1f6828bd6a7fb93319652e13beab5a25302.zip | |
Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/checkdoc.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index 9d7d35eb731..5224a943ac0 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el @@ -164,6 +164,7 @@ (require 'cl-lib) (require 'help-mode) ;; for help-xref-info-regexp (require 'thingatpt) ;; for handy thing-at-point-looking-at +(require 'dired) ;; for dired-get-filename and dired-map-over-marks (require 'lisp-mnt) (defvar compilation-error-regexp-alist) @@ -278,6 +279,8 @@ Currently, all recognized keywords must be on `finder-known-keywords'." :version "25.1" :type 'boolean) +(define-obsolete-variable-alias 'checkdoc-style-hooks + 'checkdoc-style-functions "24.3") (defvar checkdoc-style-functions nil "Hook run after the standard style check is completed. All functions must return nil or a string representing the error found. @@ -287,6 +290,8 @@ Each hook is called with two parameters, (DEFUNINFO ENDPOINT). DEFUNINFO is the return value of `checkdoc-defun-info'. ENDPOINT is the location of end of the documentation string.") +(define-obsolete-variable-alias 'checkdoc-comment-style-hooks + 'checkdoc-comment-style-functions "24.3") (defvar checkdoc-comment-style-functions nil "Hook run after the standard comment style check is completed. Must return nil if no errors are found, or a string describing the @@ -2806,10 +2811,6 @@ function called to create the messages." ;; Obsolete -(define-obsolete-variable-alias 'checkdoc-style-hooks - 'checkdoc-style-functions "24.3") -(define-obsolete-variable-alias 'checkdoc-comment-style-hooks - 'checkdoc-comment-style-functions "24.3") (define-obsolete-function-alias 'checkdoc-run-hooks #'run-hook-with-args-until-success "28.1") (defvar checkdoc-version "0.6.2" |