diff options
| author | Lars Magne Ingebrigtsen | 2011-07-11 15:36:54 +0200 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen | 2011-07-11 15:36:54 +0200 |
| commit | adbb5a4018335f47edb7e682f76caed3c023f7da (patch) | |
| tree | 607dc43e349a10f54eda450e86bc4179771ae86a | |
| parent | c3de9febac40b2ecd7c3a4e0c13f17f807d228fe (diff) | |
| download | emacs-adbb5a4018335f47edb7e682f76caed3c023f7da.tar.gz emacs-adbb5a4018335f47edb7e682f76caed3c023f7da.zip | |
Fix syntax error in last checkin.
| -rw-r--r-- | lisp/dired-x.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/dired-x.el b/lisp/dired-x.el index 580217d3fbd..d6eff9f129f 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el | |||
| @@ -1103,10 +1103,9 @@ See `dired-guess-shell-alist-user'." | |||
| 1103 | 1103 | ||
| 1104 | ;; Return commands or nil if flist is still non-nil. | 1104 | ;; Return commands or nil if flist is still non-nil. |
| 1105 | ;; Evaluate the commands in order that any logical testing will be done. | 1105 | ;; Evaluate the commands in order that any logical testing will be done. |
| 1106 | (remove-duplicates | 1106 | (if (cdr cmds) |
| 1107 | (if (cdr cmds) | 1107 | (remove-duplicates (mapcar #'eval cmds)) |
| 1108 | (mapcar #'eval cmds) | 1108 | (eval (car cmds))))) ; single command |
| 1109 | (eval (car cmds)))))) ; single command | ||
| 1110 | 1109 | ||
| 1111 | (defun dired-guess-shell-command (prompt files) | 1110 | (defun dired-guess-shell-command (prompt files) |
| 1112 | "Ask user with PROMPT for a shell command, guessing a default from FILES." | 1111 | "Ask user with PROMPT for a shell command, guessing a default from FILES." |