procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use lexical-binding in dired-aux.el

Browse source 
* lisp/dired.el: Use lexical binding.
(dired-do-shell-command): Remove unused bindings.
This commit is contained in:
Mark Oteiza 2017-07-29 11:00:51 -04:00
parent 4246ad2c2a
commit 47cecf350d
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/dired-aux.el
View file

@ -1,4 +1,4 @@
;;; dired-aux.el --- less commonly used parts of dired
;;; dired-aux.el --- less commonly used parts of dired -*- lexical-binding: t -*-
;; Copyright (C) 1985-1986, 1992, 1994, 1998, 2000-2017 Free Software
;; Foundation, Inc.
@ -742,8 +742,6 @@ can be produced by `dired-get-marked-files', for example."
(string-match regexp res))))
(let* ((on-each (not (dired--star-or-qmark-p command "*" 'keep)))
(no-subst (not (dired--star-or-qmark-p command "?" 'keep)))
(star (string-match "\\*" command))
(qmark (string-match "\\?" command))
;; Get confirmation for wildcards that may have been meant
;; to control substitution of a file name or the file name list.
(ok (cond ((not (or on-each no-subst))