mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-10 16:20:17 -08:00
Code Issues Projects Releases Wiki Activity

; * lisp/emacs-lisp/checkdoc.el: Fix warnings.

Browse source
This commit is contained in:
Stefan Kangas 2021-09-21 20:17:46 +02:00
parent b2bb717d4b
commit f41a4ec8e1
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -164,6 +164,7 @@
(require 'cl-lib) (require 'cl-lib)
(require 'help-mode) ;; for help-xref-info-regexp (require 'help-mode) ;; for help-xref-info-regexp
(require 'thingatpt) ;; for handy thing-at-point-looking-at (require 'thingatpt) ;; for handy thing-at-point-looking-at
(require 'dired) ;; for dired-get-filename and dired-map-over-marks
(require 'lisp-mnt) (require 'lisp-mnt)
(defvar compilation-error-regexp-alist) (defvar compilation-error-regexp-alist)
@ -278,6 +279,8 @@ Currently, all recognized keywords must be on `finder-known-keywords'."
:version "25.1" :version "25.1"
:type 'boolean) :type 'boolean)
(define-obsolete-variable-alias 'checkdoc-style-hooks
'checkdoc-style-functions "24.3")
(defvar checkdoc-style-functions nil (defvar checkdoc-style-functions nil
"Hook run after the standard style check is completed. "Hook run after the standard style check is completed.
All functions must return nil or a string representing the error found. 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 DEFUNINFO is the return value of `checkdoc-defun-info'. ENDPOINT is the
location of end of the documentation string.") 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 (defvar checkdoc-comment-style-functions nil
"Hook run after the standard comment style check is completed. "Hook run after the standard comment style check is completed.
Must return nil if no errors are found, or a string describing the Must return nil if no errors are found, or a string describing the
@ -2806,10 +2811,6 @@ function called to create the messages."
;; Obsolete ;; 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 (define-obsolete-function-alias 'checkdoc-run-hooks
#'run-hook-with-args-until-success "28.1") #'run-hook-with-args-until-success "28.1")
(defvar checkdoc-version "0.6.2" (defvar checkdoc-version "0.6.2"