# HG changeset patch # User Stefan Monnier # Date 1290722370 18000 # Node ID 157b252170776eb35e9867cce2099bb87c8c80fc # Parent 812a929d6b558662caf0719aeefb18bdd563e033 * diff.el (diff): Fix it for good, hopefully, this time. diff -r 812a929d6b55 -r 157b25217077 lisp/vc/diff.el --- a/lisp/vc/diff.el Thu Nov 25 22:28:14 2010 +0200 +++ b/lisp/vc/diff.el Thu Nov 25 16:59:30 2010 -0500 @@ -84,14 +84,13 @@ interactively for diff switches. Otherwise, the switches specified in `diff-switches' are passed to the diff command." (interactive - (let* ((newf (buffer-file-name)) - (oldf (file-newest-backup newf))) - (setq newf (if (and newf (file-exists-p newf)) + (let* ((newf (if (and buffer-file-name (file-exists-p buffer-file-name)) (read-file-name (concat "Diff new file (default " - (file-name-nondirectory newf) "): ") - nil newf t) + (file-name-nondirectory buffer-file-name) "): ") + nil buffer-file-name t) (read-file-name "Diff new file: " nil nil t))) + (oldf (file-newest-backup newf))) (setq oldf (if (and oldf (file-exists-p oldf)) (read-file-name (concat "Diff original file (default "