From: Taylor R. Campbell <net/mumble/campbell>
Date: Fri, 16 Jun 2006 18:33:21 +0000 (+0000)
Subject: Fix Edwin command DIFF-BACKUP for case wherein selected buffer has no
X-Git-Tag: 20090517-FFI~1007
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=dcc02126145ba4a941ccd69fa45ba191dab3b4db;p=mit-scheme.git

Fix Edwin command DIFF-BACKUP for case wherein selected buffer has no
associated file.
---

diff --git a/v7/src/edwin/diff.scm b/v7/src/edwin/diff.scm
index 6f676fe1a..294872b3e 100644
--- a/v7/src/edwin/diff.scm
+++ b/v7/src/edwin/diff.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: diff.scm,v 1.1 2006/06/16 17:55:27 riastradh Exp $
+$Id: diff.scm,v 1.2 2006/06/16 18:33:21 riastradh Exp $
 
 This code is written by Taylor R. Campbell and placed in the Public
 Domain.  All warranties are disclaimed.
@@ -37,7 +37,9 @@ Domain.  All warranties are disclaimed.
   (lambda ()
     (list (prompt-for-existing-file
            "Diff with backup"
-           (list (buffer-pathname (selected-buffer))))))
+           (cond ((buffer-pathname (selected-buffer))
+                  => list)
+                 (else #f)))))
   (lambda (filename)
     (select-buffer
      (diff-to-buffer (or (os/newest-backup filename)