From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 9 Oct 2007 04:26:24 +0000 (+0000)
Subject: Allow ->BUFFER to accept #!DEFAULT.
X-Git-Tag: 20090517-FFI~428
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=85221d2bcce88854165225172e8753720d2b438a;p=mit-scheme.git

Allow ->BUFFER to accept #!DEFAULT.
---

diff --git a/v7/src/edwin/buffer.scm b/v7/src/edwin/buffer.scm
index d6f998104..80deae51e 100644
--- a/v7/src/edwin/buffer.scm
+++ b/v7/src/edwin/buffer.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: buffer.scm,v 1.195 2007/01/05 21:19:23 cph Exp $
+$Id: buffer.scm,v 1.196 2007/10/09 04:26:24 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -246,12 +246,12 @@ The buffer is guaranteed to be deselected at that time."
   (set-buffer-alist! buffer (del-assq! key (buffer-alist buffer))))
 
 (define (->buffer object)
-  (or (cond ((buffer? object) object)
+  (or (cond ((or (default-object? object) (not object)) (current-buffer))
+	    ((buffer? object) object)
 	    ((mark? object) (mark-buffer object))
 	    ((group? object) (group-buffer object))
 	    ((region? object) (mark-buffer (region-start object)))
 	    ((window? object) (window-buffer object))
-	    ((not object) (current-buffer))
 	    (else (error:wrong-type-argument object "buffer" '->BUFFER)))
       (error:bad-range-argument object '->BUFFER)))