From: Taylor R. Campbell <net/mumble/campbell>
Date: Tue, 2 Sep 2008 21:31:59 +0000 (+0000)
Subject: When diffing with a buffer, ignore whether it is modified or not.  The
X-Git-Tag: 20090517-FFI~190
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7b9b03cf75176b7ef6d19ac474122a9c65f60d42;p=mit-scheme.git

When diffing with a buffer, ignore whether it is modified or not.  The
user may want to see how a file has changed on disk even if the buffer
in memory has not been touched.
---

diff --git a/v7/src/edwin/diff.scm b/v7/src/edwin/diff.scm
index 294872b3e..68208e072 100644
--- a/v7/src/edwin/diff.scm
+++ b/v7/src/edwin/diff.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: diff.scm,v 1.2 2006/06/16 18:33:21 riastradh Exp $
+$Id: diff.scm,v 1.3 2008/09/02 21:31:59 riastradh Exp $
 
 This code is written by Taylor R. Campbell and placed in the Public
 Domain.  All warranties are disclaimed.
@@ -80,15 +80,13 @@ Domain.  All warranties are disclaimed.
 
 (define (diff-buffer buffer pathname receiver)
   (select-buffer
-   (if (buffer-modified? buffer)
-       (call-with-temporary-file-pathname
-        (lambda (temporary-pathname)
-          (write-region (buffer-region buffer)
-                        temporary-pathname
-                        #f              ;No message
-                        #f)             ;No line ending translation
-          (receiver temporary-pathname)))
-       (receiver pathname))))
+   (call-with-temporary-file-pathname
+     (lambda (temporary-pathname)
+       (write-region (buffer-region buffer)
+                     temporary-pathname
+                     #f                 ;No message
+                     #f)                ;No line ending translation
+       (receiver temporary-pathname)))))
 
 (define (diff-to-buffer old-filename new-filename #!optional buffer)
   (let ((buffer (diff-to-buffer-argument buffer)))