Mercurial > emacs
comparison lisp/dired-aux.el @ 55284:997b45b51728
(dired-diff): Use `dired-dwim-target-directory'
if current dired buffer has no buffer mark.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Sat, 01 May 2004 05:35:34 +0000 |
| parents | 33be1cf542ec |
| children | e32286a7346d |
comparison
equal
deleted
inserted
replaced
| 55283:0c58eb7225cd | 55284:997b45b51728 |
|---|---|
| 62 (list (read-file-name (format "Diff %s with: %s" | 62 (list (read-file-name (format "Diff %s with: %s" |
| 63 (dired-get-filename t) | 63 (dired-get-filename t) |
| 64 (if default | 64 (if default |
| 65 (concat "(default " default ") ") | 65 (concat "(default " default ") ") |
| 66 "")) | 66 "")) |
| 67 (dired-current-directory) default t) | 67 (if default |
| 68 (dired-current-directory) | |
| 69 (dired-dwim-target-directory)) | |
| 70 default t) | |
| 68 (if current-prefix-arg | 71 (if current-prefix-arg |
| 69 (read-string "Options for diff: " | 72 (read-string "Options for diff: " |
| 70 (if (stringp diff-switches) | 73 (if (stringp diff-switches) |
| 71 diff-switches | 74 diff-switches |
| 72 (mapconcat 'identity diff-switches " "))))))) | 75 (mapconcat 'identity diff-switches " "))))))) |