From: yamaoka <yamaoka>
Date: Tue, 4 Jul 2000 08:42:33 +0000 (+0000)
Subject: (wl-demo): Make `kill-buffer-hook' buffer-local.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=209f9134b3e6aec838c90a5b9443eb186532b32a;p=elisp%2Fwanderlust.git

(wl-demo): Make `kill-buffer-hook' buffer-local.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index a237aef..f84a3b1 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2000-07-04  Katsumi Yamaoka    <yamaoka@jpl.org>
+
+	* wl-demo.el (wl-demo): Make `kill-buffer-hook' buffer-local.
+
 2000-07-04  Kenichi OKADA	<okada@opaopa.org>
 
 	* wl-draft.el (wl-draft-edit-string): Call
diff --git a/wl/wl-demo.el b/wl/wl-demo.el
index 9029fa7..e34b332 100644
--- a/wl/wl-demo.el
+++ b/wl/wl-demo.el
@@ -209,7 +209,8 @@ Optional IMAGE-TYPE overrides the variable `wl-demo-display-logo'."
 			    (if (, fbg)
 				(let ((unspecified nil))
 				  (set-face-background 'fringe (eval (, fbg))
-						       (, frame)))))))
+						       (, frame))))))
+		       nil t)
 	     (modify-frame-parameters (selected-frame)
 				      '((vertical-scroll-bars)))
 	     (if (find-face 'fringe)