/[emacs]/emacs/lisp/menu-bar.el
ViewVC logotype

Diff of /emacs/lisp/menu-bar.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.250 by rms, Sat Nov 27 19:01:02 2004 UTC revision 1.251 by kfstorm, Sun Nov 28 00:56:43 2004 UTC
# Line 644  by \"Save Options\" in Custom buffers.") Line 644  by \"Save Options\" in Custom buffers.")
644      (dolist (elt '(scroll-bar-mode      (dolist (elt '(scroll-bar-mode
645                     debug-on-quit debug-on-error menu-bar-mode tool-bar-mode                     debug-on-quit debug-on-error menu-bar-mode tool-bar-mode
646                     save-place uniquify-buffer-name-style fringe-mode                     save-place uniquify-buffer-name-style fringe-mode
647                     case-fold-search                     fringe-indicators case-fold-search
648                     display-time-mode auto-compression-mode                     display-time-mode auto-compression-mode
649                     current-language-environment default-input-method                     current-language-environment default-input-method
650                     ;; Saving `text-mode-hook' is somewhat questionable,                     ;; Saving `text-mode-hook' is somewhat questionable,
# Line 715  by \"Save Options\" in Custom buffers.") Line 715  by \"Save Options\" in Custom buffers.")
715                                (frame-visible-p                                (frame-visible-p
716                                 (symbol-value 'speedbar-frame))))))                                 (symbol-value 'speedbar-frame))))))
717    
718    
719    (defvar menu-bar-showhide-fringe-ind-menu (make-sparse-keymap "Indicators"))
720    
721    ;; The real definition is in fringe.el.
722    ;; This is to prevent errors in the :radio conditions below.
723    (setq fringe-indicators nil)
724    
725    (defun menu-bar-showhide-fringe-ind-empty ()
726      "Display empty line indicators in the left or right fringe."
727      (interactive)
728      (require 'fringe)
729      (customize-set-variable 'fringe-indicators 'empty))
730    
731    (define-key menu-bar-showhide-fringe-ind-menu [empty]
732      '(menu-item "Empty lines only" menu-bar-showhide-fringe-ind-empty
733                  :help "Show empty line indicators in fringe"
734                  :visible (display-graphic-p)
735                  :button (:radio . (eq fringe-indicators 'empty))))
736    
737    (defun menu-bar-showhide-fringe-ind-mixed ()
738      "Display top and bottom indicators in opposite fringes, arrow in right."
739      (interactive)
740      (require 'fringe)
741      (customize-set-variable 'fringe-indicators 'mixed))
742    
743    (define-key menu-bar-showhide-fringe-ind-menu [mixed]
744      '(menu-item "Opposite, arrows right" menu-bar-showhide-fringe-ind-mixed
745                  :help "Show top/bottom indicators in opposite fringes, arrows in right"
746                  :visible (display-graphic-p)
747                  :button (:radio . (eq fringe-indicators 'mixed))))
748    
749    (defun menu-bar-showhide-fringe-ind-box ()
750      "Display top and bottom indicators in opposite fringes."
751      (interactive)
752      (require 'fringe)
753      (customize-set-variable 'fringe-indicators 'box))
754    
755    (define-key menu-bar-showhide-fringe-ind-menu [box]
756      '(menu-item "Opposite, no arrows" menu-bar-showhide-fringe-ind-box
757                  :help "Show top/bottom indicators in opposite fringes, no arrows"
758                  :visible (display-graphic-p)
759                  :button (:radio . (eq fringe-indicators 'box))))
760    
761    (defun menu-bar-showhide-fringe-ind-right ()
762      "Display fringe indicators in the right fringe."
763      (interactive)
764      (require 'fringe)
765      (customize-set-variable 'fringe-indicators 'right))
766    
767    (define-key menu-bar-showhide-fringe-ind-menu [right]
768      '(menu-item "In right fringe" menu-bar-showhide-fringe-ind-right
769                  :help "Show indicators in right fringe"
770                  :visible (display-graphic-p)
771                  :button (:radio . (eq fringe-indicators 'right))))
772    
773    (defun menu-bar-showhide-fringe-ind-left ()
774      "Display fringe indicators in the left fringe."
775      (interactive)
776      (require 'fringe)
777      (customize-set-variable 'fringe-indicators 'left))
778    
779    (define-key menu-bar-showhide-fringe-ind-menu [left]
780      '(menu-item "In left fringe" menu-bar-showhide-fringe-ind-left
781                  :help "Show indicators in left fringe"
782                  :visible (display-graphic-p)
783                  :button (:radio . (eq fringe-indicators 'left))))
784    
785    (defun menu-bar-showhide-fringe-ind-none ()
786      "Do not display any fringe indicators."
787      (interactive)
788      (require 'fringe)
789      (customize-set-variable 'fringe-indicators nil))
790    
791    (define-key menu-bar-showhide-fringe-ind-menu [none]
792      '(menu-item "No indicators" menu-bar-showhide-fringe-ind-none
793                  :help "Hide all fringe indicators"
794                  :visible (display-graphic-p)
795                  :button (:radio . (eq fringe-indicators nil))))
796    
797    
798    
799  (defvar menu-bar-showhide-fringe-menu (make-sparse-keymap "Fringe"))  (defvar menu-bar-showhide-fringe-menu (make-sparse-keymap "Fringe"))
800    
801  (defun menu-bar-showhide-fringe-menu-customize ()  (defun menu-bar-showhide-fringe-menu-customize ()
# Line 732  by \"Save Options\" in Custom buffers.") Line 813  by \"Save Options\" in Custom buffers.")
813    (interactive)    (interactive)
814    (customize-set-variable 'fringe-mode nil))    (customize-set-variable 'fringe-mode nil))
815    
816    (define-key menu-bar-showhide-fringe-menu [showhide-fringe-ind]
817      (list 'menu-item "Indicators" menu-bar-showhide-fringe-ind-menu
818            :visible `(display-graphic-p)
819            :help "Select fringe mode"))
820    
821  ;; The real definition is in fringe.el.  ;; The real definition is in fringe.el.
822  ;; This is to prevent errors in the :radio conditions below.  ;; This is to prevent errors in the :radio conditions below.
823  (setq fringe-mode nil)  (setq fringe-mode nil)

Legend:
Removed from v.1.250  
changed lines
  Added in v.1.251

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26