# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1206271373 0
# Node ID b903b7ebbe297d5ca703f186fbd4069b6e8fb5b6
# Parent  0a860349969c27c106483747dc80e514597cf321
(menu-bar-showhide-fringe-ind-menu): Fix radio
button condition.
(menu-bar-showhide-fringe-ind-menu): Likewise.

diff -r 0a860349969c -r b903b7ebbe29 lisp/ChangeLog
--- 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
diff -r 0a860349969c -r b903b7ebbe29 lisp/menu-bar.el
--- 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."