Mercurial > emacs

comparison lisp/menu-bar.el @ 80366:4e64068576f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(menu-bar-showhide-fringe-ind-menu) [customize]: Add radio button.
author Andreas Schwab <schwab@suse.de>
date Sun, 23 Mar 2008 11:59:46 +0000
parents b903b7ebbe29
children
comparison
equal deleted inserted replaced
80365:13bd74fbe1c7 80366:4e64068576f8
743 743
744 (define-key menu-bar-showhide-fringe-ind-menu [customize] 744 (define-key menu-bar-showhide-fringe-ind-menu [customize]
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."
752 (interactive) 756 (interactive)
753 (customize-set-variable 'indicate-buffer-boundaries 757 (customize-set-variable 'indicate-buffer-boundaries