aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMark Oteiza2017-07-29 11:00:51 -0400
committerMark Oteiza2017-07-29 11:00:51 -0400
commit47cecf350d6add5ab2a20a389b63a011c84cbc1b (patch)
tree13c16fbc487e34a6fc4038dcdf90a5ca1fb9ddce
parent4246ad2c2aec52a0248b73af13861c413fd8e7b9 (diff)
downloademacs-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.el4
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))