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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index a237aef..f84a3b1 100644 (file)
--- 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 (file)
--- 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)