Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defun do-local-menu ()
- (if (get-window-with-predicate (lambda (w) (> (buffer-local-value 'local-menu-bar (window-buffer w)) 0)))
- (show-menu) (hide-menu)))
- (defun hide-menu () (modify-frame-parameters nil `((menu-bar-lines . 0))))
- (defun show-menu () (modify-frame-parameters nil `((menu-bar-lines . 1))))
- (add-hook 'window-configuration-change-hook 'do-local-menu)
Add Comment
Please, Sign In to add comment