Mercurial > emacs
comparison lisp/term/mac-win.el @ 82914:273d8da82439
(mac-handle-toolbar-switch-mode): Add explicit
argument to tool-bar-mode call.
author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> |
---|---|
date | Mon, 27 Aug 2007 08:30:13 +0000 |
parents | 3d3fbe15d8ec |
children | 27d11c1d4e46 b83d0dadb2a7 |
comparison
equal
deleted
inserted
replaced
82913:3787853fd157 | 82914:273d8da82439 |
---|---|
1796 ;;; Converted Carbon Events | 1796 ;;; Converted Carbon Events |
1797 (defun mac-handle-toolbar-switch-mode (event) | 1797 (defun mac-handle-toolbar-switch-mode (event) |
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) |
1810 1 0)))))) | 1810 1 0)))))) |
1811 | 1811 |