Mercurial > emacs
comparison lisp/menu-bar.el @ 109982:1c825c451dc0
* menu-bar.el (menu-bar-set-tool-bar-position): Set frame parameter on all frames.
| author | Jan D <jan.h.d@swipnet.se> |
|---|---|
| date | Wed, 25 Aug 2010 08:53:55 +0200 |
| parents | 53205019b195 |
| children | 640cdeb464c1 |
comparison
equal
deleted
inserted
replaced
| 109981:55e2c5cbf29c | 109982:1c825c451dc0 |
|---|---|
| 968 :help ,(purecopy "Turn menu-bar on/off") | 968 :help ,(purecopy "Turn menu-bar on/off") |
| 969 :button (:toggle . (> (frame-parameter nil 'menu-bar-lines) 0)))) | 969 :button (:toggle . (> (frame-parameter nil 'menu-bar-lines) 0)))) |
| 970 | 970 |
| 971 (defun menu-bar-set-tool-bar-position (position) | 971 (defun menu-bar-set-tool-bar-position (position) |
| 972 (customize-set-variable 'tool-bar-mode t) | 972 (customize-set-variable 'tool-bar-mode t) |
| 973 (set-frame-parameter nil 'tool-bar-position position) | 973 (dolist (frame (frame-list)) |
| 974 (set-frame-parameter frame 'tool-bar-position position)) | |
| 974 (customize-set-variable 'default-frame-alist | 975 (customize-set-variable 'default-frame-alist |
| 975 (cons (cons 'tool-bar-position position) | 976 (cons (cons 'tool-bar-position position) |
| 976 (assq-delete-all 'tool-bar-position | 977 (assq-delete-all 'tool-bar-position |
| 977 default-frame-alist)))) | 978 default-frame-alist)))) |
| 978 | 979 |