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

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