Mercurial > emacs

diff lisp/diff.el @ 39758:875aaf118d95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(diff): Display default values in prompts as `(default ...)', not `(...)'.
author Miles Bader <miles@gnu.org>
date Thu, 11 Oct 2001 01:20:16 +0000
parents a19197c6442f
children 0f3260023919
line wrap: on
line diff
--- a/lisp/diff.el	Thu Oct 11 01:19:49 2001 +0000
+++ b/lisp/diff.el	Thu Oct 11 01:20:16 2001 +0000
@@ -1,6 +1,6 @@
 ;;; diff.el --- run `diff' in compilation-mode
 
-;; Copyright (C) 1992, 1994, 1996 Free Software Foundation, Inc.
+;; Copyright (C) 1992, 1994, 1996, 2001 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: unix, tools
@@ -199,14 +199,14 @@
 	(setq newf (buffer-file-name)
 	      newf (if (and newf (file-exists-p newf))
 		       (read-file-name
-			(concat "Diff new file: ("
+			(concat "Diff new file: (default "
 				(file-name-nondirectory newf) ") ")
 			nil newf t)
 		     (read-file-name "Diff new file: " nil nil t)))
 	(setq oldf (file-newest-backup newf)
 	      oldf (if (and oldf (file-exists-p oldf))
 		       (read-file-name
-			(concat "Diff original file: ("
+			(concat "Diff original file: (default "
 				(file-name-nondirectory oldf) ") ")
 			(file-name-directory oldf) oldf t)
 		     (read-file-name "Diff original file: "