[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/diff.el
From: |
Romain Francoise |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/diff.el |
Date: |
Sat, 24 Sep 2005 09:44:07 -0400 |
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/diff.el,
Romain Francoise <=