(after-make-frame-functions): Add `wl-e21-force-switch-toolbar'.

(wl-e21-force-switch-toolbar): New function force to switch the toolbar
appearance automatically.

NOTE: This change should be fixed in the future.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 0b881d2..8e3ca41 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,7 +1,11 @@
 2000-09-26  Katsumi Yamaoka    <yamaoka@jpl.org>
 
        NOTE: This change should be fixed in the future.
-       * wl-e21.el (post-command-hook): Add `wl-e21-switch-toolbar'.
+       * wl-e21.el (after-make-frame-functions): Add
+       `wl-e21-force-switch-toolbar'.
+       (wl-e21-force-switch-toolbar): New function force to switch the
+       toolbar appearance automatically.
+       (post-command-hook): Add `wl-e21-switch-toolbar'.
        (wl-e21-switch-toolbar): New function to switch the toolbar
        appearance automatically.
        (wl-e21-tool-bar-lines): New buffer local variable.

diff --git a/wl/wl-e21.el b/wl/wl-e21.el
index cefd192..4ed5451 100644 (file)
--- a/wl/wl-e21.el
+++ b/wl/wl-e21.el
@@ -197,10 +197,14 @@
         (new (or wl-e21-tool-bar-lines
                  (cdr (assq 'tool-bar-lines default-frame-alist)))))
     (unless (eq (and old t) (and new t))
-      (modify-frame-parameters frame (list (cons 'tool-bar-lines new)))
-      ;;(redraw-frame frame)
-      )))
+      (modify-frame-parameters frame (list (cons 'tool-bar-lines new))))))
 (add-hook 'post-command-hook 'wl-e21-switch-toolbar)
+(defun wl-e21-force-switch-toolbar (frame)
+  (let ((lines (frame-parameter frame 'tool-bar-lines)))
+    (unless (and lines (> lines 0))
+      (modify-frame-parameters frame (list (cons 'tool-bar-lines
+                                                wl-e21-tool-bar-lines))))))
+(add-hook 'after-make-frame-functions 'wl-e21-force-switch-toolbar)
 
 (defun wl-e21-make-toolbar-buttons (keymap defs)
   (let ((configs wl-e21-toolbar-configurations)