aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorYAMAMOTO Mitsuharu2007-08-27 08:30:37 +0000
committerYAMAMOTO Mitsuharu2007-08-27 08:30:37 +0000
commit8a2e0b2a692dfee47dcec6f77b39210ae511db35 (patch)
tree0b78b5cf8004cc52e17f11606e8d29d335f44f1b /lisp
parent4b34031944a99781aa424f7baea594b142626bf8 (diff)
downloademacs-8a2e0b2a692dfee47dcec6f77b39210ae511db35.tar.gz
emacs-8a2e0b2a692dfee47dcec6f77b39210ae511db35.zip
(mac-handle-toolbar-switch-mode): Add explicit
argument to tool-bar-mode call.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/term/mac-win.el4
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 @@
12007-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
12007-08-27 Glenn Morris <rgm@gnu.org> 62007-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.
1799With no keyboard modifiers, it toggles the visibility of the 1799With no keyboard modifiers, it toggles the visibility of the
1800frame where the tool-bar toggle button was pressed. With some 1800frame where the tool-bar toggle button was pressed. With some
1801modifiers, it changes global tool-bar visibility setting." 1801modifiers, 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)