diff options
| author | Stefan Monnier | 2021-04-10 17:11:58 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2021-04-10 17:11:58 -0400 |
| commit | 56e8d969f545446c00a82af6f2e5bc7ad535a359 (patch) | |
| tree | 47eed126783363b89a198bcf64c2c0c4b3f90d3b | |
| parent | 26e1d854d1d40a63896272162f299a90e5a31043 (diff) | |
| download | emacs-56e8d969f545446c00a82af6f2e5bc7ad535a359.tar.gz emacs-56e8d969f545446c00a82af6f2e5bc7ad535a359.zip | |
* lisp/cus-dep.el: Use lexical-binding
| -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)) |