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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 329ecdc21867ba03dd7a98233d3b6b21666b1c0f..2d420370d1422f176661a9d7564e627dd8ebad9c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,7 @@
        * menu-bar.el (menu-bar-showhide-fringe-ind-menu) [mixed]: Fix
        radio button condition.
        [box]: Likewise.
+       [customize]: Add radio button.
 
 2008-03-20  Dan Nicolaescu  <dann@ics.uci.edu>
 

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 30a4e42551ac06ce0c8b8ca4c927189c4858300f..ede3f91221c5be201ab8e9263f9ebbf0f224b11a 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -745,7 +745,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."