(mac-handle-toolbar-switch-mode): Add explicit

argument to tool-bar-mode call.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a977ef4e9703f279b0ca351f617ea4804cc854eb..cc03224e2dc2e9534ee8ad38157734d412a66685 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-08-27  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
+
+       * term/mac-win.el (mac-handle-toolbar-switch-mode): Add explicit
+       argument to tool-bar-mode call.
+
 2007-08-27  Glenn Morris  <rgm@gnu.org>
 
        * diff-mode.el (diff-find-file-name): Only accept regular files,

diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el
index b9f28323694954b1981aa8e7b376930d810d0b92..e39e1fffeb0981c46ae4f68d9051b0a3436aee80 100644 (file)
--- a/lisp/term/mac-win.el
+++ b/lisp/term/mac-win.el
@@ -1798,12 +1798,12 @@ Currently the `mailto' scheme is supported."
   "Toggle visibility of tool-bars in response to EVENT.
 With no keyboard modifiers, it toggles the visibility of the
 frame where the tool-bar toggle button was pressed.  With some
-modifiers, it changes global tool-bar visibility setting."
+modifiers, it changes the global tool-bar visibility setting."
   (interactive "e")
   (let ((ae (mac-event-ae event)))
     (if (mac-ae-keyboard-modifiers ae)
        ;; Globally toggle tool-bar-mode if some modifier key is pressed.
-       (tool-bar-mode)
+       (tool-bar-mode 'toggle)
       (let ((frame (mac-ae-frame ae)))
        (set-frame-parameter frame 'tool-bar-lines
                             (if (= (frame-parameter frame 'tool-bar-lines) 0)