From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 10 Apr 2021 21:11:58 +0000 (-0400)
Subject: * lisp/cus-dep.el: Use lexical-binding
X-Git-Tag: emacs-28.0.90~2922
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=56e8d969f545446c00a82af6f2e5bc7ad535a359;p=emacs.git

* lisp/cus-dep.el: Use lexical-binding
---

diff --git a/lisp/cus-dep.el b/lisp/cus-dep.el
index f0b108b77d6..c14a45ca775 100644
--- a/lisp/cus-dep.el
+++ b/lisp/cus-dep.el
@@ -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))