From f41a4ec8e171db19690e3bf2198d8045f153e81f Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Tue, 21 Sep 2021 20:17:46 +0200 Subject: ; * lisp/emacs-lisp/checkdoc.el: Fix warnings. --- lisp/emacs-lisp/checkdoc.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'lisp/emacs-lisp') 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" -- cgit v1.2.3