[Emacs-diffs] Changes to emacs/lisp/diff.el

[Romain Francoise]

Index: emacs/lisp/diff.el
diff -c emacs/lisp/diff.el:1.57 emacs/lisp/diff.el:1.58
*** emacs/lisp/diff.el:1.57     Sat Aug  6 22:13:42 2005
--- emacs/lisp/diff.el  Sat Sep 24 13:44:02 2005
***************
*** 83,97 ****
       (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) ") ")
                     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) ") ")
                     (file-name-directory oldf) oldf t)
                  (read-file-name "Diff original file: "
                                  (file-name-directory newf) nil t)))
--- 83,97 ----
       (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) "): ")
                     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) "): ")
                     (file-name-directory oldf) oldf t)
                  (read-file-name "Diff original file: "
                                  (file-name-directory newf) nil t)))