From 1983a336227be0bf01b6a85cfec4e6a33039ff11 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sun, 23 Mar 2008 11:59:46 +0000 Subject: [PATCH] (menu-bar-showhide-fringe-ind-menu) [customize]: Add radio button. --- lisp/ChangeLog | 1 + lisp/menu-bar.el | 6 +++++- 2 files changed, 6 insertions(+), 1 deletion(-) 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 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." -- 2.39.5