From 50f752bf7a07bf6221b250923b010b650c9852a1 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 13 May 1994 20:26:58 +0000
Subject: [PATCH] Add optional arg to FIND-BUFFER which says to signal error if
 buffer doesn't exist.

---
 v7/src/edwin/curren.scm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

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))
-- 
2.25.1