# HG changeset patch # User Miles Bader # Date 1002763216 0 # Node ID 875aaf118d95bdf5846d0aa9a390510dbd1d6be0 # Parent 0597a7bc10a2de5565242b892bf724730094a3c3 (diff): Display default values in prompts as `(default ...)', not `(...)'. diff -r 0597a7bc10a2 -r 875aaf118d95 lisp/diff.el --- 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: "