(menu-bar-showhide-fringe-ind-menu) [customize]: Add radio button.

2 files changed, 9 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 61b5eac17fe..4f726a0824f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,8 +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.
+        * menu-bar.el (menu-bar-showhide-fringe-ind-menu) [mixed]: Fix
+        radio button condition.
+        [box]: Likewise.
+        [customize]: Add radio button.
 
 2008-03-23  Jay Belanger  <jay.p.belanger@gmail.com>
 
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 7b3a409b97d..2eaed4c5e34 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -748,7 +748,11 @@ mail status in mode line"))
   '(menu-item "Other (Customize)"
               menu-bar-showhide-fringe-ind-customize
               :help "Additional choices available through Custom buffer"
-              :visible (display-graphic-p)))
+              :visible (display-graphic-p)
+              :button (:radio . (not (member indicate-buffer-boundaries
+                                             '(nil left right
+                                               ((top . left) (bottom . right))
+                                               ((t . right) (top . left))))))))
 
 (defun menu-bar-showhide-fringe-ind-mixed ()
   "Display top and bottom indicators in opposite fringes, arrows in right."