Commit adbb5a40 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen
Browse files

Fix syntax error in last checkin.

parent c3de9feb
...@@ -1103,10 +1103,9 @@ See `dired-guess-shell-alist-user'." ...@@ -1103,10 +1103,9 @@ See `dired-guess-shell-alist-user'."
;; Return commands or nil if flist is still non-nil. ;; Return commands or nil if flist is still non-nil.
;; Evaluate the commands in order that any logical testing will be done. ;; Evaluate the commands in order that any logical testing will be done.
(remove-duplicates
(if (cdr cmds) (if (cdr cmds)
(mapcar #'eval cmds) (remove-duplicates (mapcar #'eval cmds))
(eval (car cmds)))))) ; single command (eval (car cmds))))) ; single command
(defun dired-guess-shell-command (prompt files) (defun dired-guess-shell-command (prompt files)
"Ask user with PROMPT for a shell command, guessing a default from FILES." "Ask user with PROMPT for a shell command, guessing a default from FILES."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment