diff options
| author | Mark Oteiza | 2017-07-29 11:00:51 -0400 |
|---|---|---|
| committer | Mark Oteiza | 2017-07-29 11:00:51 -0400 |
| commit | 47cecf350d6add5ab2a20a389b63a011c84cbc1b (patch) | |
| tree | 13c16fbc487e34a6fc4038dcdf90a5ca1fb9ddce | |
| parent | 4246ad2c2aec52a0248b73af13861c413fd8e7b9 (diff) | |
| download | emacs-47cecf350d6add5ab2a20a389b63a011c84cbc1b.tar.gz emacs-47cecf350d6add5ab2a20a389b63a011c84cbc1b.zip | |
Use lexical-binding in dired-aux.el
* lisp/dired.el: Use lexical binding.
(dired-do-shell-command): Remove unused bindings.
| -rw-r--r-- | lisp/dired-aux.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 17dae6085df..0a8ec26f7ca 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | ;;; dired-aux.el --- less commonly used parts of dired | 1 | ;;; dired-aux.el --- less commonly used parts of dired -*- lexical-binding: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985-1986, 1992, 1994, 1998, 2000-2017 Free Software | 3 | ;; Copyright (C) 1985-1986, 1992, 1994, 1998, 2000-2017 Free Software |
| 4 | ;; Foundation, Inc. | 4 | ;; Foundation, Inc. |
| @@ -742,8 +742,6 @@ can be produced by `dired-get-marked-files', for example." | |||
| 742 | (string-match regexp res)))) | 742 | (string-match regexp res)))) |
| 743 | (let* ((on-each (not (dired--star-or-qmark-p command "*" 'keep))) | 743 | (let* ((on-each (not (dired--star-or-qmark-p command "*" 'keep))) |
| 744 | (no-subst (not (dired--star-or-qmark-p command "?" 'keep))) | 744 | (no-subst (not (dired--star-or-qmark-p command "?" 'keep))) |
| 745 | (star (string-match "\\*" command)) | ||
| 746 | (qmark (string-match "\\?" command)) | ||
| 747 | ;; Get confirmation for wildcards that may have been meant | 745 | ;; Get confirmation for wildcards that may have been meant |
| 748 | ;; to control substitution of a file name or the file name list. | 746 | ;; to control substitution of a file name or the file name list. |
| 749 | (ok (cond ((not (or on-each no-subst)) | 747 | (ok (cond ((not (or on-each no-subst)) |