/[emacs]/emacs/lisp/diff.el
ViewVC logotype

Diff of /emacs/lisp/diff.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.57 by ttn, Sat Aug 6 22:13:42 2005 UTC revision 1.58 by rfrancoise, Sat Sep 24 13:44:02 2005 UTC
# Line 83  With prefix arg, prompt for diff switche Line 83  With prefix arg, prompt for diff switche
83       (setq newf (buffer-file-name)       (setq newf (buffer-file-name)
84             newf (if (and newf (file-exists-p newf))             newf (if (and newf (file-exists-p newf))
85                      (read-file-name                      (read-file-name
86                       (concat "Diff new file: (default "                       (concat "Diff new file (default "
87                               (file-name-nondirectory newf) ") ")                               (file-name-nondirectory newf) "): ")
88                       nil newf t)                       nil newf t)
89                    (read-file-name "Diff new file: " nil nil t)))                    (read-file-name "Diff new file: " nil nil t)))
90       (setq oldf (file-newest-backup newf)       (setq oldf (file-newest-backup newf)
91             oldf (if (and oldf (file-exists-p oldf))             oldf (if (and oldf (file-exists-p oldf))
92                      (read-file-name                      (read-file-name
93                       (concat "Diff original file: (default "                       (concat "Diff original file (default "
94                               (file-name-nondirectory oldf) ") ")                               (file-name-nondirectory oldf) "): ")
95                       (file-name-directory oldf) oldf t)                       (file-name-directory oldf) oldf t)
96                    (read-file-name "Diff original file: "                    (read-file-name "Diff original file: "
97                                    (file-name-directory newf) nil t)))                                    (file-name-directory newf) nil t)))

Legend:
Removed from v.1.57  
changed lines
  Added in v.1.58

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26