(menu-bar-showhide-fringe-ind-menu): Fix radio

button condition.
(menu-bar-showhide-fringe-ind-menu): Likewise.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 742c5cf1ac2528a03c83f5eceda0da35db600302..61b5eac17fedf8c3ff2f6efeabbfdaffc8c28501 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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-23  Jay Belanger  <jay.p.belanger@gmail.com>
 
        * calc/calc.el (calc-was-keypad-mode, calc-full-mode)

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index bd7cd8257ef7bb0bc137a31c0d06b27b06daf29a..7b3a409b97d1aa24b04fbb111fad6e7efd105ddf 100644 (file)
--- 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."