diff options
| author | Jim Blandy | 1993-07-02 00:15:07 +0000 |
|---|---|---|
| committer | Jim Blandy | 1993-07-02 00:15:07 +0000 |
| commit | 0d370700b250e434eb3389c3e8c301ebf82a8aab (patch) | |
| tree | f8642ff4920fdcbd0caec5f936e41c18179a79e5 | |
| parent | e11094e681f80c7190f2a5fa731f2b9059d0340b (diff) | |
| download | emacs-0d370700b250e434eb3389c3e8c301ebf82a8aab.tar.gz emacs-0d370700b250e434eb3389c3e8c301ebf82a8aab.zip | |
* dired-aux.el (dired-diff): Work even when the mark is inactive.
| -rw-r--r-- | lisp/dired-aux.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 16b28fc4e1e..e83bb0fd5e6 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el | |||
| @@ -45,8 +45,8 @@ | |||
| 45 | FILE defaults to the file at the mark. | 45 | FILE defaults to the file at the mark. |
| 46 | The prompted-for file is the first file given to `diff'." | 46 | The prompted-for file is the first file given to `diff'." |
| 47 | (interactive | 47 | (interactive |
| 48 | (let ((default (if (mark) | 48 | (let ((default (if (mark t) |
| 49 | (save-excursion (goto-char (mark)) | 49 | (save-excursion (goto-char (mark t)) |
| 50 | (dired-get-filename t t))))) | 50 | (dired-get-filename t t))))) |
| 51 | (list (read-file-name (format "Diff %s with: %s" | 51 | (list (read-file-name (format "Diff %s with: %s" |
| 52 | (dired-get-filename t) | 52 | (dired-get-filename t) |