aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog1
-rw-r--r--lisp/menu-bar.el6
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 329ecdc2186..2d420370d14 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,7 @@
3 * menu-bar.el (menu-bar-showhide-fringe-ind-menu) [mixed]: Fix 3 * menu-bar.el (menu-bar-showhide-fringe-ind-menu) [mixed]: Fix
4 radio button condition. 4 radio button condition.
5 [box]: Likewise. 5 [box]: Likewise.
6 [customize]: Add radio button.
6 7
72008-03-20 Dan Nicolaescu <dann@ics.uci.edu> 82008-03-20 Dan Nicolaescu <dann@ics.uci.edu>
8 9
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"))
745 '(menu-item "Other (Customize)" 745 '(menu-item "Other (Customize)"
746 menu-bar-showhide-fringe-ind-customize 746 menu-bar-showhide-fringe-ind-customize
747 :help "Additional choices available through Custom buffer" 747 :help "Additional choices available through Custom buffer"
748 :visible (display-graphic-p))) 748 :visible (display-graphic-p)
749 :button (:radio . (not (member indicate-buffer-boundaries
750 '(nil left right
751 ((top . left) (bottom . right))
752 ((t . right) (top . left))))))))
749 753
750(defun menu-bar-showhide-fringe-ind-mixed () 754(defun menu-bar-showhide-fringe-ind-mixed ()
751 "Display top and bottom indicators in opposite fringes, arrows in right." 755 "Display top and bottom indicators in opposite fringes, arrows in right."