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))) |