diff options
| author | Stephen Berman <stephen.berman@gmx.net> | 2016-07-08 17:22:14 +0200 |
|---|---|---|
| committer | Stephen Berman <stephen.berman@gmx.net> | 2016-07-08 17:22:14 +0200 |
| commit | 381c6bbfb3eaa69ece0fce8dd92ccd3a1ef2729f (patch) | |
| tree | e4e57a09e944f03c284df82faa4794993738e5d9 | |
| parent | 56c8551219ecace0157ce813733adf8eecb38c32 (diff) | |
Fix menu bar breakage
* lisp/menu-bar.el (menu-bar-showhide-scroll-bar-menu): Use backquoting
to prevent void variable errors, and fix typo (bug#23918).
| -rw-r--r-- | lisp/menu-bar.el | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index c4f094a179..9f3156d62b 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -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 () |