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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 61b5eac17fedf8c3ff2f6efeabbfdaffc8c28501..4f726a0824f54a86eff0e140ed82da19b82b61e6 100644 (file)
--- 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 7b3a409b97d1aa24b04fbb111fad6e7efd105ddf..2eaed4c5e34e4fb659a786d877b8a9b5224d1984 100644 (file)
--- 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."