Guest User

Untitled

a guest
Jan 22nd, 2018
150
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.36 KB | None | 0 0
  1. (defun do-local-menu ()
  2. (if (get-window-with-predicate (lambda (w) (> (buffer-local-value 'local-menu-bar (window-buffer w)) 0)))
  3. (show-menu) (hide-menu)))
  4. (defun hide-menu () (modify-frame-parameters nil `((menu-bar-lines . 0))))
  5. (defun show-menu () (modify-frame-parameters nil `((menu-bar-lines . 1))))
  6. (add-hook 'window-configuration-change-hook 'do-local-menu)
Add Comment
Please, Sign In to add comment