procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix menu bar breakage

Browse source 
* lisp/menu-bar.el (menu-bar-showhide-scroll-bar-menu): Use backquoting
to prevent void variable errors, and fix typo (bug#23918).
This commit is contained in:
Stephen Berman 2016-07-08 17:22:14 +02:00
parent 56c8551219
commit 381c6bbfb3
1 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lisp/menu-bar.el
View file

@ -993,39 +993,39 @@ The selected font will be the default on both the existing and future frames."
(vsb (frame-parameter nil 'vertical-scroll-bars))
(hsb (frame-parameter nil 'horizontal-scroll-bars)))
(bindings--define-key menu [horizontal]
'(menu-item "Horizontal"
`(menu-item "Horizontal"
menu-bar-horizontal-scroll-bar
:help "Horizontal scroll bar"
:visible (horizontal-scroll-bars-available-p)
:button (:radio . hsb)))
:button (:radio . ,hsb)))
(bindings--define-key menu [none-horizontal]
'(menu-item "None-horizontal"
`(menu-item "None-horizontal"
menu-bar-no-horizontal-scroll-bar
:help "Turn off horizontal scroll bars"
:visible (horizontal-scroll-bars-available-p)
:button (:radio . (not hsb))))
:button (:radio . (not ,hsb))))
(bindings--define-key menu [right]
'(menu-item "On the Right"
`(menu-item "On the Right"
menu-bar-right-scroll-bar
:help "Scroll-bar on the right side"
:visible (display-graphic-p)
:button (:radio . (eq vsb 'right))))
:button (:radio . (eq ,vsb 'right))))
(bindings--define-key menu [left]
'(menu-item "On the Left"
`(menu-item "On the Left"
menu-bar-left-scroll-bar
:help "Scroll-bar on the left side"
:visible (display-graphic-p)
:button (:radio . (eq vsb 'left))))
:button (:radio . (eq ,vsb 'left))))
(bindings--define-key menu [none]
'(menu-item "None"
`(menu-item "None"
menu-bar-no-scroll-bar
:help "Turn off scroll-bar"
:visible (display-graphic-p)
:button (:radio . (nilp vsb))))
:button (:radio . (not ,vsb))))
menu))
(defun menu-bar-frame-for-menubar ()