mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

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

Browse Source 
argument to tool-bar-mode call.
This commit is contained in:
YAMAMOTO Mitsuharu 2007-08-27 08:33:14 +00:00
parent a186cc54a2
commit a225da012c
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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,

4
lisp/term/mac-win.el
View File

@ -1785,12 +1785,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)