Allow ->BUFFER to accept #!DEFAULT.

diff --git a/v7/src/edwin/buffer.scm b/v7/src/edwin/buffer.scm
index d6f9981045341d09de7c7bb481cf8cfba93585c1..80deae51e8c94bbf756383ef307019ee9a5897e9 100644 (file)
--- 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)))
 \f