diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/term/mac-win.el | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a977ef4e970..cc03224e2dc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2007-08-27 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | ||
| 2 | |||
| 3 | * term/mac-win.el (mac-handle-toolbar-switch-mode): Add explicit | ||
| 4 | argument to tool-bar-mode call. | ||
| 5 | |||
| 1 | 2007-08-27 Glenn Morris <rgm@gnu.org> | 6 | 2007-08-27 Glenn Morris <rgm@gnu.org> |
| 2 | 7 | ||
| 3 | * diff-mode.el (diff-find-file-name): Only accept regular files, | 8 | * 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 b9f28323694..e39e1fffeb0 100644 --- a/lisp/term/mac-win.el +++ b/lisp/term/mac-win.el | |||
| @@ -1798,12 +1798,12 @@ Currently the `mailto' scheme is supported." | |||
| 1798 | "Toggle visibility of tool-bars in response to EVENT. | 1798 | "Toggle visibility of tool-bars in response to EVENT. |
| 1799 | With no keyboard modifiers, it toggles the visibility of the | 1799 | With no keyboard modifiers, it toggles the visibility of the |
| 1800 | frame where the tool-bar toggle button was pressed. With some | 1800 | frame where the tool-bar toggle button was pressed. With some |
| 1801 | modifiers, it changes global tool-bar visibility setting." | 1801 | modifiers, it changes the global tool-bar visibility setting." |
| 1802 | (interactive "e") | 1802 | (interactive "e") |
| 1803 | (let ((ae (mac-event-ae event))) | 1803 | (let ((ae (mac-event-ae event))) |
| 1804 | (if (mac-ae-keyboard-modifiers ae) | 1804 | (if (mac-ae-keyboard-modifiers ae) |
| 1805 | ;; Globally toggle tool-bar-mode if some modifier key is pressed. | 1805 | ;; Globally toggle tool-bar-mode if some modifier key is pressed. |
| 1806 | (tool-bar-mode) | 1806 | (tool-bar-mode 'toggle) |
| 1807 | (let ((frame (mac-ae-frame ae))) | 1807 | (let ((frame (mac-ae-frame ae))) |
| 1808 | (set-frame-parameter frame 'tool-bar-lines | 1808 | (set-frame-parameter frame 'tool-bar-lines |
| 1809 | (if (= (frame-parameter frame 'tool-bar-lines) 0) | 1809 | (if (= (frame-parameter frame 'tool-bar-lines) 0) |