Mercurial > emacs
changeset 80364:b903b7ebbe29
(menu-bar-showhide-fringe-ind-menu): Fix radio
button condition.
(menu-bar-showhide-fringe-ind-menu): Likewise.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Sun, 23 Mar 2008 11:22:53 +0000 |
| parents | 0a860349969c |
| children | 13bd74fbe1c7 |
| files | lisp/ChangeLog lisp/menu-bar.el |
| diffstat | 2 files changed, 10 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Mar 22 10:13:32 2008 +0000 +++ b/lisp/ChangeLog Sun Mar 23 11:22:53 2008 +0000 @@ -1,3 +1,9 @@ +2008-03-23 Andreas Schwab <schwab@suse.de> + + * menu-bar.el (menu-bar-showhide-fringe-ind-menu): Fix radio + button condition. + (menu-bar-showhide-fringe-ind-menu): Likewise. + 2008-03-20 Dan Nicolaescu <dann@ics.uci.edu> * vc-bzr.el (vc-bzr-print-log): Ensure it works when passed a
--- a/lisp/menu-bar.el Sat Mar 22 10:13:32 2008 +0000 +++ b/lisp/menu-bar.el Sun Mar 23 11:22:53 2008 +0000 @@ -758,8 +758,8 @@ :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." @@ -771,8 +771,8 @@ '(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."