* liece.el (liece-clear-system): Call

`liece-buffer-dispose-function' instead of burying buffer.

* liece-vars.el (liece-buffer-dispose-function): New variable.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f44ed84..957dd20 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2000-09-11   Daiki Ueno  <ueno@unixuser.org>
+
+       * liece.el (liece-clear-system): Call
+       `liece-buffer-dispose-function' instead of burying buffer.
+
+       * liece-vars.el (liece-buffer-dispose-function): New variable.
+
 2000-09-10   Daiki Ueno  <ueno@unixuser.org>
 
        * liece-inlines.el (string-list-remove-ignore-case): Remove car of the element.

diff --git a/lisp/liece-vars.el b/lisp/liece-vars.el
index c481d43..bf36572 100644 (file)
--- a/lisp/liece-vars.el
+++ b/lisp/liece-vars.el
@@ -843,6 +843,11 @@ Messages from them won't be displayed."
   (define-obsolete-variable-alias 'liece-checkbuffer-interval
     'liece-buffer-check-interval))
 
+(defcustom liece-buffer-dispose-function (function bury-buffer)
+  "Function called after the buffer was disposed of."
+  :type 'function
+  :group 'liece-vars)
+
 (defcustom liece-private-window-height 4
   "How tall is the window for private messages when shown."
   :type 'integer

diff --git a/lisp/liece.el b/lisp/liece.el
index ec6da91..dfc57fa 100644 (file)
--- a/lisp/liece.el
+++ b/lisp/liece.el
@@ -818,7 +818,7 @@ Instead, these commands are available:
   (interactive)
   (dolist (buffer liece-buffer-list)
     (when (and (get-buffer buffer) (buffer-live-p buffer))
-      (bury-buffer buffer)))
+      (funcall liece-buffer-dispose-function buffer)))
   (if (vectorp liece-obarray)
       (dotimes (i liece-obarray-size)
        (aset liece-obarray i nil)))