diff options
| author | Andreas Schwab <schwab@suse.de> | 2008-03-23 11:21:14 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@suse.de> | 2008-03-23 11:21:14 +0000 |
| commit | a08404b7ba99bb150b1e268f9a514efff9538daf (patch) | |
| tree | 4b11a040f4b7a0f66f8a0dfd872c670bca6dc326 /lisp/menu-bar.el | |
| parent | 7a2c03a84327b3f58807c13c9d4bb245e62f7a67 (diff) | |
| download | emacs-a08404b7ba99bb150b1e268f9a514efff9538daf.tar.gz | |
(menu-bar-showhide-fringe-ind-menu): Fix radio
button condition.
(menu-bar-showhide-fringe-ind-menu): Likewise.
Diffstat (limited to 'lisp/menu-bar.el')
| -rw-r--r-- | lisp/menu-bar.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index bd7cd8257ef..7b3a409b97d 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -761,8 +761,8 @@ mail status in mode line")) :help "Show top/bottom indicators in opposite fringes, arrows in right" :visible (display-graphic-p) - :button (:radio . (eq indicate-buffer-boundaries - '((t . right) (top . left)))))) + :button (:radio . (equal indicate-buffer-boundaries + '((t . right) (top . left)))))) (defun menu-bar-showhide-fringe-ind-box () "Display top and bottom indicators in opposite fringes." @@ -774,8 +774,8 @@ mail status in mode line")) '(menu-item "Opposite, No Arrows" menu-bar-showhide-fringe-ind-box :help "Show top/bottom indicators in opposite fringes, no arrows" :visible (display-graphic-p) - :button (:radio . (eq indicate-buffer-boundaries - '((top . left) (bottom . right)))))) + :button (:radio . (equal indicate-buffer-boundaries + '((top . left) (bottom . right)))))) (defun menu-bar-showhide-fringe-ind-right () "Display buffer boundaries and arrows in the right fringe." |