Mercurial > emacs

comparison lisp/menu-bar.el @ 80364:b903b7ebbe29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(menu-bar-showhide-fringe-ind-menu): Fix radio button condition. (menu-bar-showhide-fringe-ind-menu): Likewise.
author Andreas Schwab <schwab@suse.de>
date Sun, 23 Mar 2008 11:22:53 +0000
parents 29d05c607c9b
children 4e64068576f8
comparison
equal deleted inserted replaced
80363:0a860349969c 80364:b903b7ebbe29
756 (define-key menu-bar-showhide-fringe-ind-menu [mixed] 756 (define-key menu-bar-showhide-fringe-ind-menu [mixed]
757 '(menu-item "Opposite, Arrows Right" menu-bar-showhide-fringe-ind-mixed 757 '(menu-item "Opposite, Arrows Right" menu-bar-showhide-fringe-ind-mixed
758 :help 758 :help
759 "Show top/bottom indicators in opposite fringes, arrows in right" 759 "Show top/bottom indicators in opposite fringes, arrows in right"
760 :visible (display-graphic-p) 760 :visible (display-graphic-p)
761 :button (:radio . (eq indicate-buffer-boundaries 761 :button (:radio . (equal indicate-buffer-boundaries
762 '((t . right) (top . left)))))) 762 '((t . right) (top . left))))))
763 763
764 (defun menu-bar-showhide-fringe-ind-box () 764 (defun menu-bar-showhide-fringe-ind-box ()
765 "Display top and bottom indicators in opposite fringes." 765 "Display top and bottom indicators in opposite fringes."
766 (interactive) 766 (interactive)
767 (customize-set-variable 'indicate-buffer-boundaries 767 (customize-set-variable 'indicate-buffer-boundaries
769 769
770 (define-key menu-bar-showhide-fringe-ind-menu [box] 770 (define-key menu-bar-showhide-fringe-ind-menu [box]
771 '(menu-item "Opposite, No Arrows" menu-bar-showhide-fringe-ind-box 771 '(menu-item "Opposite, No Arrows" menu-bar-showhide-fringe-ind-box
772 :help "Show top/bottom indicators in opposite fringes, no arrows" 772 :help "Show top/bottom indicators in opposite fringes, no arrows"
773 :visible (display-graphic-p) 773 :visible (display-graphic-p)
774 :button (:radio . (eq indicate-buffer-boundaries 774 :button (:radio . (equal indicate-buffer-boundaries
775 '((top . left) (bottom . right)))))) 775 '((top . left) (bottom . right))))))
776 776
777 (defun menu-bar-showhide-fringe-ind-right () 777 (defun menu-bar-showhide-fringe-ind-right ()
778 "Display buffer boundaries and arrows in the right fringe." 778 "Display buffer boundaries and arrows in the right fringe."
779 (interactive) 779 (interactive)
780 (customize-set-variable 'indicate-buffer-boundaries 'right)) 780 (customize-set-variable 'indicate-buffer-boundaries 'right))