aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/cus-dep.el6
1 files changed, 3 insertions, 3 deletions
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 @@
1;;; cus-dep.el --- find customization dependencies 1;;; cus-dep.el --- find customization dependencies -*- lexical-binding: t; -*-
2;; 2;;
3;; Copyright (C) 1997, 2001-2021 Free Software Foundation, Inc. 3;; Copyright (C) 1997, 2001-2021 Free Software Foundation, Inc.
4;; 4;;
@@ -131,7 +131,7 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
131 'custom-where name) 131 'custom-where name)
132 ;; Eval to get the 'custom-group, -tag, 132 ;; Eval to get the 'custom-group, -tag,
133 ;; -version, group-documentation etc properties. 133 ;; -version, group-documentation etc properties.
134 (eval expr)) 134 (eval expr t))
135 ;; Eval failed for some reason. Eg maybe the 135 ;; Eval failed for some reason. Eg maybe the
136 ;; defcustom uses something defined earlier 136 ;; defcustom uses something defined earlier
137 ;; in the file (we haven't loaded the file). 137 ;; 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"
163 (let ((members (get symbol 'custom-group)) 163 (let ((members (get symbol 'custom-group))
164 where found) 164 where found)
165 (when members 165 (when members
166 (dolist (member (mapcar 'car members)) 166 (dolist (member (mapcar #'car members))
167 (setq where (get member 'custom-where)) 167 (setq where (get member 'custom-where))
168 (unless (or (null where) 168 (unless (or (null where)
169 (member where found)) 169 (member where found))