59 |
(save-excursion (goto-char (mark t)) |
(save-excursion (goto-char (mark t)) |
60 |
(dired-get-filename t t))))) |
(dired-get-filename t t))))) |
61 |
(require 'diff) |
(require 'diff) |
62 |
(list (read-file-name (format "Diff %s with: %s" |
(list (read-file-name (format "Diff %s with%s: " |
63 |
(dired-get-filename t) |
(dired-get-filename t) |
64 |
(if default |
(if default |
65 |
(concat "(default " default ") ") |
(concat " (default " default ")") |
66 |
"")) |
"")) |
67 |
(if default |
(if default |
68 |
(dired-current-directory) |
(dired-current-directory) |