mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

Make checkdoc warn if not using lexical-binding

Browse source 
* lisp/emacs-lisp/checkdoc.el (checkdoc-file-comments-engine):
Warn if there is no lexical-binding cookie.  (Bug#59920)
(checkdoc-lexical-binding-flag): New user option.
This commit is contained in:
Stefan Kangas 2022-12-09 10:58:22 +01:00
parent 05a7c91b91
commit 7d60d1652f
2 changed files with 47 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -128,6 +128,14 @@
;; simple style rules to follow which checkdoc will auto-fix for you.
;; `y-or-n-p' and `yes-or-no-p' should also end in "?".
;;
;; Lexical binding:
;;
;; We recommend always using lexical binding in new code, and
;; converting old code to use it. Checkdoc warns if you don't have
;; the recommended string "-*- lexical-binding: t -*-" at the top of
;; the file. You can disable this check with the user option
;; `checkdoc-lexical-binding-flag'.
;;
;; Adding your own checks:
;;
;; You can experiment with adding your own checks by setting the
@ -339,6 +347,12 @@ See Info node `(elisp) Documentation Tips' for background."
:type 'boolean
:version "28.1")
(defcustom checkdoc-lexical-binding-flag t
"Non-nil means generate warnings if file is not using lexical binding.
See Info node `(elisp) Converting to Lexical Binding' for more."
:type 'boolean
:version "30.1")
;; This is how you can use checkdoc to make mass fixes on the Emacs
;; source tree:
;;
@ -2377,6 +2391,31 @@ Code:, and others referenced in the style guide."
(point-min) (save-excursion (goto-char (point-min))
(line-end-position))))
nil))
(when checkdoc-lexical-binding-flag
(setq
err
;; Lexical binding cookie.
(if (not (save-excursion
(save-restriction
(goto-char (point-min))
(narrow-to-region (point) (pos-eol))
(re-search-forward
(rx "-*-" (* (* nonl) ";")
(* space) "lexical-binding:" (* space) "t" (* space)
(* ";" (* nonl))
"-*-")
nil t))))
(let ((pos (save-excursion (goto-char (point-min))
(goto-char (pos-eol))
(point))))
(if (checkdoc-y-or-n-p "There is no lexical-binding cookie! Add one?")
(progn
(goto-char pos)
(insert " -*- lexical-binding: t -*-"))
(checkdoc-create-error
"The first line should end with \"-*- lexical-binding: t -*-\""
pos (1+ pos) t)))
nil)))
(setq
err
(or