emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r102514: * diff.el (diff): Fix it for


From: Stefan Monnier
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r102514: * diff.el (diff): Fix it for good, hopefully, this time.
Date: Thu, 25 Nov 2010 16:59:30 -0500
User-agent: Bazaar (2.0.3)

------------------------------------------------------------
revno: 102514
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Thu 2010-11-25 16:59:30 -0500
message:
  * diff.el (diff): Fix it for good, hopefully, this time.
modified:
  lisp/vc/diff.el
=== modified file 'lisp/vc/diff.el'
--- a/lisp/vc/diff.el   2010-11-25 04:43:56 +0000
+++ b/lisp/vc/diff.el   2010-11-25 21:59:30 +0000
@@ -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 "


reply via email to

[Prev in Thread] Current Thread [Next in Thread]