From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 13 May 1994 20:26:58 +0000 (+0000)
Subject: Add optional arg to FIND-BUFFER which says to signal error if buffer
X-Git-Tag: 20090517-FFI~7176
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=50f752bf7a07bf6221b250923b010b650c9852a1;p=mit-scheme.git

Add optional arg to FIND-BUFFER which says to signal error if buffer
doesn't exist.
---

diff --git a/v7/src/edwin/curren.scm b/v7/src/edwin/curren.scm
index b02d67985..9be833af8 100644
--- a/v7/src/edwin/curren.scm
+++ b/v7/src/edwin/curren.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: curren.scm,v 1.111 1994/03/08 21:00:10 cph Exp $
+;;;	$Id: curren.scm,v 1.112 1994/05/13 20:26:58 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -362,8 +362,13 @@
 (define (bury-buffer buffer)
   (bufferset-bury-buffer! (current-bufferset) buffer))
 
-(define (find-buffer name)
-  (bufferset-find-buffer (current-bufferset) name))
+(define (find-buffer name #!optional error?)
+  (let ((buffer (bufferset-find-buffer (current-bufferset) name)))
+    (if (and (not buffer)
+	     (not (default-object? error?))
+	     error?)
+	(editor-error "No buffer named" name))
+    buffer))
 
 (define (create-buffer name)
   (bufferset-create-buffer (current-bufferset) name))