From 822db192bfece0948741a49a4f81204444d81d3e Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 19 Apr 1995 01:56:44 +0000
Subject: [PATCH] Provide mechanism to permit BUFFER-GET to return a value
 different from #F when the buffer lacks a given property.

---
 v7/src/edwin/buffer.scm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/v7/src/edwin/buffer.scm b/v7/src/edwin/buffer.scm
index c2354e3c9..44f383ccc 100644
--- a/v7/src/edwin/buffer.scm
+++ b/v7/src/edwin/buffer.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: buffer.scm,v 1.167 1994/11/02 02:20:20 adams Exp $
+;;;	$Id: buffer.scm,v 1.168 1995/04/19 01:56:44 cph Exp $
 ;;;
-;;;	Copyright (c) 1986, 1989-94 Massachusetts Institute of Technology
+;;;	Copyright (c) 1986, 1989-95 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -237,10 +237,11 @@ The buffer is guaranteed to be deselected at that time."
 (define (buffer-visible? buffer)
   (there-exists? (buffer-windows buffer) window-visible?))
 
-(define (buffer-get buffer key)
+(define (buffer-get buffer key #!optional default)
   (let ((entry (assq key (buffer-alist buffer))))
-    (and entry
-	 (cdr entry))))
+    (if entry
+	(cdr entry)
+	(if (default-object? default) #f default))))
 
 (define (buffer-put! buffer key value)
   (if value
-- 
2.25.1