mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-21 18:23:59 +00:00
Code Issues Releases Activity

Fix syntax error in last checkin.

Browse Source
This commit is contained in:
Lars Magne Ingebrigtsen 2011-07-11 15:36:54 +02:00
parent c3de9febac
commit adbb5a4018
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/dired-x.el
View File

@ -1103,10 +1103,9 @@ See `dired-guess-shell-alist-user'."
;; Return commands or nil if flist is still non-nil.
;; Evaluate the commands in order that any logical testing will be done.
(remove-duplicates
(if (cdr cmds)
(mapcar #'eval cmds)
(eval (car cmds)))))) ; single command
(if (cdr cmds)
(remove-duplicates (mapcar #'eval cmds))
(eval (car cmds))))) ; single command
(defun dired-guess-shell-command (prompt files)
"Ask user with PROMPT for a shell command, guessing a default from FILES."