From f3ab39e92af00587ff704c882a85aeaa73007176 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 7 Feb 2000 23:09:41 +0000
Subject: [PATCH] Don't assume that a buffer-property value of #F is equivalent
 to no value at all.

---
 v7/src/edwin/buffer.scm | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

diff --git a/v7/src/edwin/buffer.scm b/v7/src/edwin/buffer.scm
index a01ef9d27..b3d434401 100644
--- a/v7/src/edwin/buffer.scm
+++ b/v7/src/edwin/buffer.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: buffer.scm,v 1.173 1999/11/05 05:37:41 cph Exp $
+;;; $Id: buffer.scm,v 1.174 2000/02/07 23:09:41 cph Exp $
 ;;;
-;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
+;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
@@ -220,13 +220,11 @@ The buffer is guaranteed to be deselected at that time."
 	(if (default-object? default) #f default))))
 
 (define (buffer-put! buffer key value)
-  (if value
-      (let ((entry (assq key (buffer-alist buffer))))
-	(if entry
-	    (set-cdr! entry value)
-	    (set-buffer-alist! buffer
-			       (cons (cons key value) (buffer-alist buffer)))))
-      (buffer-remove! buffer key)))
+  (let ((entry (assq key (buffer-alist buffer))))
+    (if entry
+	(set-cdr! entry value)
+	(set-buffer-alist! buffer
+			   (cons (cons key value) (buffer-alist buffer))))))
 
 (define (buffer-remove! buffer key)
   (set-buffer-alist! buffer (del-assq! key (buffer-alist buffer))))
-- 
2.25.1