* lisp/cus-dep.el: Use lexical-binding
This commit is contained in:
@@ -1,4 +1,4 @@
|
||||
;;; cus-dep.el --- find customization dependencies
|
||||
;;; cus-dep.el --- find customization dependencies -*- lexical-binding: t; -*-
|
||||
;;
|
||||
;; Copyright (C) 1997, 2001-2021 Free Software Foundation, Inc.
|
||||
;;
|
||||
@@ -131,7 +131,7 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
|
||||
'custom-where name)
|
||||
;; Eval to get the 'custom-group, -tag,
|
||||
;; -version, group-documentation etc properties.
|
||||
(eval expr))
|
||||
(eval expr t))
|
||||
;; Eval failed for some reason. Eg maybe the
|
||||
;; defcustom uses something defined earlier
|
||||
;; in the file (we haven't loaded the file).
|
||||
@@ -163,7 +163,7 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
|
||||
(let ((members (get symbol 'custom-group))
|
||||
where found)
|
||||
(when members
|
||||
(dolist (member (mapcar 'car members))
|
||||
(dolist (member (mapcar #'car members))
|
||||
(setq where (get member 'custom-where))
|
||||
(unless (or (null where)
|
||||
(member where found))
|
||||
|
||||
Reference in New Issue
Block a user