diff options
| -rw-r--r-- | lisp/cus-dep.el | 6 |
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)) |