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

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

2 files changed, 10 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b1aecb57b2e..62cc587c370 100644
--- 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-20  Dan Nicolaescu  <dann@ics.uci.edu>
 
         * vc-bzr.el (vc-bzr-print-log): Ensure it works when passed a
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 38479b676ab..30a4e42551a 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -758,8 +758,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."
@@ -771,8 +771,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."