Mercurial > emacs
diff lisp/dired-aux.el @ 3950:6e13c3b03b67
* dired-aux.el (dired-diff): Work even when the mark is inactive.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Fri, 02 Jul 1993 00:15:07 +0000 |
parents | 507f64624555 |
children | f25a821aefb0 |
line wrap: on
line diff
--- a/lisp/dired-aux.el Thu Jul 01 23:35:51 1993 +0000 +++ b/lisp/dired-aux.el Fri Jul 02 00:15:07 1993 +0000 @@ -45,8 +45,8 @@ FILE defaults to the file at the mark. The prompted-for file is the first file given to `diff'." (interactive - (let ((default (if (mark) - (save-excursion (goto-char (mark)) + (let ((default (if (mark t) + (save-excursion (goto-char (mark t)) (dired-get-filename t t))))) (list (read-file-name (format "Diff %s with: %s" (dired-get-filename t)