From: Stefan Kangas Date: Tue, 21 Sep 2021 18:17:46 +0000 (+0200) Subject: ; * lisp/emacs-lisp/checkdoc.el: Fix warnings. X-Git-Tag: emacs-28.0.90~760^2 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f41a4ec8e171db19690e3bf2198d8045f153e81f;p=emacs.git ; * lisp/emacs-lisp/checkdoc.el: Fix warnings. --- 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"