Lines Matching +defs:right +defs:fringe
379 "Fill text in region to fit between left and right margin"))
661 save-place uniquify-buffer-name-style fringe-mode
736 (defvar menu-bar-showhide-fringe-menu (make-sparse-keymap "Fringe"))
738 (defvar menu-bar-showhide-fringe-ind-menu
741 (defun menu-bar-showhide-fringe-ind-customize ()
746 (define-key menu-bar-showhide-fringe-ind-menu [customize]
748 menu-bar-showhide-fringe-ind-customize
752 (defun menu-bar-showhide-fringe-ind-mixed ()
753 "Display top and bottom indicators in opposite fringes, arrows in right."
756 '((t . right) (top . left))))
758 (define-key menu-bar-showhide-fringe-ind-menu [mixed]
759 '(menu-item "Opposite, Arrows Right" menu-bar-showhide-fringe-ind-mixed
761 "Show top/bottom indicators in opposite fringes, arrows in right"
764 '((t . right) (top . left))))))
766 (defun menu-bar-showhide-fringe-ind-box ()
770 '((top . left) (bottom . right))))
772 (define-key menu-bar-showhide-fringe-ind-menu [box]
773 '(menu-item "Opposite, No Arrows" menu-bar-showhide-fringe-ind-box
777 '((top . left) (bottom . right))))))
779 (defun menu-bar-showhide-fringe-ind-right ()
780 "Display buffer boundaries and arrows in the right fringe."
782 (customize-set-variable 'indicate-buffer-boundaries 'right))
784 (define-key menu-bar-showhide-fringe-ind-menu [right]
785 '(menu-item "In Right Fringe" menu-bar-showhide-fringe-ind-right
786 :help "Show buffer boundaries and arrows in right fringe"
788 :button (:radio . (eq indicate-buffer-boundaries 'right))))
790 (defun menu-bar-showhide-fringe-ind-left ()
791 "Display buffer boundaries and arrows in the left fringe."
795 (define-key menu-bar-showhide-fringe-ind-menu [left]
796 '(menu-item "In Left Fringe" menu-bar-showhide-fringe-ind-left
797 :help "Show buffer boundaries and arrows in left fringe"
801 (defun menu-bar-showhide-fringe-ind-none ()
806 (define-key menu-bar-showhide-fringe-ind-menu [none]
807 '(menu-item "No Indicators" menu-bar-showhide-fringe-ind-none
812 (define-key menu-bar-showhide-fringe-menu [showhide-fringe-ind]
813 (list 'menu-item "Buffer Boundaries" menu-bar-showhide-fringe-ind-menu
815 :help "Indicate buffer boundaries in fringe"))
817 (define-key menu-bar-showhide-fringe-menu [indicate-empty-lines]
821 "Indicate trailing empty lines in fringe, globally"))
823 (defun menu-bar-showhide-fringe-menu-customize ()
824 "Show customization buffer for `fringe-mode'."
826 (customize-variable 'fringe-mode))
828 (define-key menu-bar-showhide-fringe-menu [customize]
829 '(menu-item "Customize Fringe" menu-bar-showhide-fringe-menu-customize
830 :help "Detailed customization of fringe"
833 (defun menu-bar-showhide-fringe-menu-customize-reset ()
834 "Reset the fringe mode: display fringes on both sides of a window."
836 (customize-set-variable 'fringe-mode nil))
838 (define-key menu-bar-showhide-fringe-menu [default]
839 '(menu-item "Default" menu-bar-showhide-fringe-menu-customize-reset
840 :help "Default width fringe on both left and right side"
842 :button (:radio . (eq fringe-mode nil))))
844 (defun menu-bar-showhide-fringe-menu-customize-right ()
845 "Display fringes only on the right of each window."
847 (require 'fringe)
848 (customize-set-variable 'fringe-mode '(0 . nil)))
850 (define-key menu-bar-showhide-fringe-menu [right]
851 '(menu-item "On the Right" menu-bar-showhide-fringe-menu-customize-right
852 :help "Fringe only on the right side"
854 :button (:radio . (equal fringe-mode '(0 . nil)))))
856 (defun menu-bar-showhide-fringe-menu-customize-left ()
859 (require 'fringe)
860 (customize-set-variable 'fringe-mode '(nil . 0)))
862 (define-key menu-bar-showhide-fringe-menu [left]
863 '(menu-item "On the Left" menu-bar-showhide-fringe-menu-customize-left
866 :button (:radio . (equal fringe-mode '(nil . 0)))))
868 (defun menu-bar-showhide-fringe-menu-customize-disable ()
871 (require 'fringe)
872 (customize-set-variable 'fringe-mode 0))
874 (define-key menu-bar-showhide-fringe-menu [none]
875 '(menu-item "None" menu-bar-showhide-fringe-menu-customize-disable
876 :help "Turn off fringe"
878 :button (:radio . (eq fringe-mode 0))))
880 (define-key menu-bar-showhide-menu [showhide-fringe]
881 (list 'menu-item "Fringe" menu-bar-showhide-fringe-menu
886 (define-key menu-bar-showhide-scroll-bar-menu [right]
888 menu-bar-right-scroll-bar
889 :help "Scroll-bar on the right side"
892 (frame-parameters))) 'right))))
893 (defun menu-bar-right-scroll-bar ()
894 "Display scroll bars on the right of each window."
896 (customize-set-variable 'scroll-bar-mode 'right))
1040 :help "Automatically fill text between left and right margins (Auto Fill)"