From: ueno <ueno>
Date: Mon, 11 Sep 2000 02:30:23 +0000 (+0000)
Subject: * liece.el (liece-clear-system): Call
X-Git-Tag: liece-1_4_4-1~26
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2e6ef12cf5e1ccf491b8b6b9a4f767718ec2506d;p=elisp%2Fliece.git

* 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
--- 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
--- 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
--- 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)))