From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 30 Sep 1992 18:29:21 +0000 (+0000)
Subject: Fix definition of SELECT-BUFFER-NOT-FOUND-HOOKS so that the procedures
X-Git-Tag: 20090517-FFI~8877
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a4ca887fa65cc8fa9e076c5eadeed1b55dda7f69;p=mit-scheme.git

Fix definition of SELECT-BUFFER-NOT-FOUND-HOOKS so that the procedures
in it must return either a buffer or #F.
---

diff --git a/v7/src/edwin/bufcom.scm b/v7/src/edwin/bufcom.scm
index a34326b03..2eec5e9cf 100644
--- a/v7/src/edwin/bufcom.scm
+++ b/v7/src/edwin/bufcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: bufcom.scm,v 1.96 1992/09/30 17:06:47 cph Exp $
+;;;	$Id: bufcom.scm,v 1.97 1992/09/30 18:29:21 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -264,7 +264,10 @@ When locked, the buffer's major mode may not be changed."
 		 (let ((buffer (create-buffer name)))
 		   (temporary-message "(New Buffer)")
 		   buffer))
-		((not ((car hooks) name))
+		((let ((result ((car hooks) name)))
+		   (and (buffer? result)
+			result)))
+		(else
 		 (loop (cdr hooks))))))))
 
 (define-variable select-buffer-create
@@ -276,7 +279,7 @@ When locked, the buffer's major mode may not be changed."
   "List of procedures to be called for select-buffer on nonexistent buffer.
 These procedures are called as soon as the error is detected.
 The procedures are called in the order given,
-until one of them returns non-false.
+until one of them returns a buffer.
 This variable has no effect if select-buffer-create is false."
   '()
   list?)