From 3a5b5d148c33df632a6b4ee2cee649994524eddf Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sun, 23 Mar 2008 11:44:23 +0000 Subject: [PATCH] (menu-bar-showhide-fringe-ind-menu) [customize]: Add radio button. --- lisp/ChangeLog | 7 ++++--- lisp/menu-bar.el | 6 +++++- 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 - * 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 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." -- 2.39.2