]> code.delx.au - gnu-emacs/blobdiff - lisp/diff.el
(mouse-drag-track): Renamed, from `mouse-drag-region-1'. Includes
[gnu-emacs] / lisp / diff.el
index bee7277af786efe4e61e0cb531bf510f79129f7e..8c4332b2da2d48f496ffbec9f2b9413ed2f23c15 100644 (file)
@@ -1,6 +1,7 @@
 ;;; diff.el --- run `diff' in compilation-mode
 
-;; Copyright (C) 1992, 1994, 1996, 2001, 2004 Free Software Foundation, Inc.
+;; Copyright (C) 1992, 1994, 1996, 2001, 2002, 2003, 2004,
+;;   2005 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: unix, tools
@@ -82,15 +83,15 @@ With prefix arg, prompt for diff switches."
      (setq newf (buffer-file-name)
           newf (if (and newf (file-exists-p newf))
                    (read-file-name
-                    (concat "Diff new file: (default "
-                            (file-name-nondirectory newf) ") ")
+                    (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: (default "
-                            (file-name-nondirectory oldf) ") ")
+                    (concat "Diff original file (default "
+                            (file-name-nondirectory oldf) "): ")
                     (file-name-directory oldf) oldf t)
                  (read-file-name "Diff original file: "
                                  (file-name-directory newf) nil t)))