diff options
Diffstat (limited to 'lisp/vc/diff-mode.el')
| -rw-r--r-- | lisp/vc/diff-mode.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/vc/diff-mode.el b/lisp/vc/diff-mode.el index 9c41d508b6b..a1fdd11ca04 100644 --- a/lisp/vc/diff-mode.el +++ b/lisp/vc/diff-mode.el @@ -911,10 +911,11 @@ like \(diff-merge-strings \"b/foo\" \"b/bar\" \"/a/c/foo\")." If the OLD prefix arg is passed, tell the file NAME of the old file." (interactive (let* ((old current-prefix-arg) - (fs (diff-hunk-file-names current-prefix-arg))) + (fs (diff-hunk-file-names current-prefix-arg)) + (default (diff-find-file-name old 'noprompt))) (unless fs (error "No file name to look for")) - (list old (read-file-name (format "File for %s: " (car fs)) - nil (diff-find-file-name old 'noprompt) t)))) + (list old (read-file-name (format-prompt "File for %s" default (car fs)) + nil default t)))) (let ((fs (diff-hunk-file-names old))) (unless fs (error "No file name to look for")) (push (cons fs name) diff-remembered-files-alist))) |