From: Andreas Schwab <schwab@suse.de>
Date: Sun, 23 Mar 2008 11:59:46 +0000 (+0000)
Subject: (menu-bar-showhide-fringe-ind-menu) [customize]: Add radio button.
X-Git-Tag: emacs-22.2~8
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1983a336227be0bf01b6a85cfec4e6a33039ff11;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 329ecdc2186..2d420370d14 100644
--- 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 30a4e42551a..ede3f91221c 100644
--- 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."