From: yamaoka <yamaoka>
Date: Mon, 2 Oct 2000 08:07:11 +0000 (+0000)
Subject: (wl-e21-make-toolbar-buttons): Invalidate the default bindings.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0d90b0244ccffa441ae8f988b763e43f0729a6c3;p=elisp%2Fwanderlust.git

(wl-e21-make-toolbar-buttons): Invalidate the default bindings.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index addc2bf..f8ff34e 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-02  Katsumi Yamaoka    <yamaoka@jpl.org>
+
+	* wl-e21.el (wl-e21-make-toolbar-buttons): Invalidate the default
+	bindings.
+
 2000-09-29  Katsumi Yamaoka    <yamaoka@jpl.org>
 
 	* wl-e21.el (wl-e21-setup-toolbar): Make the background color of
diff --git a/wl/wl-e21.el b/wl/wl-e21.el
index 79a0b96..919cbcf 100644
--- a/wl/wl-e21.el
+++ b/wl/wl-e21.el
@@ -184,6 +184,12 @@
 	config)
     (while (setq config (pop configs))
       (set (make-local-variable (car config)) (cdr config))))
+  ;; Invalidate the default bindings.
+  (let ((keys (cdr (key-binding [tool-bar] t)))
+	item)
+    (while (setq item (pop keys))
+      (when (setq item (car-safe item))
+	(define-key keymap (vector 'tool-bar item) 'undefined))))
   (let ((n (length defs))
 	def)
     (while (>= n 0)