diff options
| -rw-r--r-- | lisp/dired-aux.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 09850198ca5..30a941c7bb6 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el | |||
| @@ -1898,7 +1898,14 @@ Optional arg HOW-TO determines how to treat the target. | |||
| 1898 | (set (make-local-variable 'minibuffer-default-add-function) nil) | 1898 | (set (make-local-variable 'minibuffer-default-add-function) nil) |
| 1899 | (setq minibuffer-default defaults)) | 1899 | (setq minibuffer-default defaults)) |
| 1900 | (dired-mark-read-file-name | 1900 | (dired-mark-read-file-name |
| 1901 | (concat (if dired-one-file op1 operation) " %s to: ") | 1901 | (format "%s %%s %s: " |
| 1902 | (if dired-one-file op1 operation) | ||
| 1903 | (if (memq op-symbol '(symlink hardlink)) | ||
| 1904 | ;; Linking operations create links | ||
| 1905 | ;; from the prompted file name; the | ||
| 1906 | ;; other operations copy (etc) to the | ||
| 1907 | ;; prompted file name. | ||
| 1908 | "from" "to")) | ||
| 1902 | target-dir op-symbol arg rfn-list default)))) | 1909 | target-dir op-symbol arg rfn-list default)))) |
| 1903 | (into-dir | 1910 | (into-dir |
| 1904 | (progn | 1911 | (progn |