/[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.267 by teirllm, Thu Aug 11 01:54:40 2005 UTC revision 1.268 by teirllm, Thu Aug 11 20:57:36 2005 UTC
# Line 703  by \"Save Options\" in Custom buffers.") Line 703  by \"Save Options\" in Custom buffers.")
703    
704  (define-key menu-bar-showhide-menu [showhide-battery]  (define-key menu-bar-showhide-menu [showhide-battery]
705    (menu-bar-make-mm-toggle display-battery-mode    (menu-bar-make-mm-toggle display-battery-mode
706                             "Battery status"                             "Battery Status"
707                             "Display battery status information in mode line"))                             "Display battery status information in mode line"))
708    
709  (define-key menu-bar-showhide-menu [showhide-date-time]  (define-key menu-bar-showhide-menu [showhide-date-time]
# Line 735  mail status in mode line")) Line 735  mail status in mode line"))
735    (customize-variable 'indicate-buffer-boundaries))    (customize-variable 'indicate-buffer-boundaries))
736    
737  (define-key menu-bar-showhide-fringe-ind-menu [customize]  (define-key menu-bar-showhide-fringe-ind-menu [customize]
738    '(menu-item "Other (customize)"    '(menu-item "Other (Customize)"
739                menu-bar-showhide-fringe-ind-customize                menu-bar-showhide-fringe-ind-customize
740                :help "Additional choices available through Custom buffer"                :help "Additional choices available through Custom buffer"
741                :visible (display-graphic-p)))                :visible (display-graphic-p)))
# Line 747  mail status in mode line")) Line 747  mail status in mode line"))
747                            '((t . right) (top . left))))                            '((t . right) (top . left))))
748    
749  (define-key menu-bar-showhide-fringe-ind-menu [mixed]  (define-key menu-bar-showhide-fringe-ind-menu [mixed]
750    '(menu-item "Opposite, arrows right" menu-bar-showhide-fringe-ind-mixed    '(menu-item "Opposite, Arrows Right" menu-bar-showhide-fringe-ind-mixed
751                :help                :help
752                "Show top/bottom indicators in opposite fringes, arrows in right"                "Show top/bottom indicators in opposite fringes, arrows in right"
753                :visible (display-graphic-p)                :visible (display-graphic-p)
# Line 761  mail status in mode line")) Line 761  mail status in mode line"))
761                            '((top . left) (bottom . right))))                            '((top . left) (bottom . right))))
762    
763  (define-key menu-bar-showhide-fringe-ind-menu [box]  (define-key menu-bar-showhide-fringe-ind-menu [box]
764    '(menu-item "Opposite, no arrows" menu-bar-showhide-fringe-ind-box    '(menu-item "Opposite, No Arrows" menu-bar-showhide-fringe-ind-box
765                :help "Show top/bottom indicators in opposite fringes, no arrows"                :help "Show top/bottom indicators in opposite fringes, no arrows"
766                :visible (display-graphic-p)                :visible (display-graphic-p)
767                :button (:radio . (eq indicate-buffer-boundaries                :button (:radio . (eq indicate-buffer-boundaries
# Line 773  mail status in mode line")) Line 773  mail status in mode line"))
773    (customize-set-variable 'indicate-buffer-boundaries 'right))    (customize-set-variable 'indicate-buffer-boundaries 'right))
774    
775  (define-key menu-bar-showhide-fringe-ind-menu [right]  (define-key menu-bar-showhide-fringe-ind-menu [right]
776    '(menu-item "In right fringe" menu-bar-showhide-fringe-ind-right    '(menu-item "In Right Fringe" menu-bar-showhide-fringe-ind-right
777                :help "Show buffer boundaries and arrows in right fringe"                :help "Show buffer boundaries and arrows in right fringe"
778                :visible (display-graphic-p)                :visible (display-graphic-p)
779                :button (:radio . (eq indicate-buffer-boundaries 'right))))                :button (:radio . (eq indicate-buffer-boundaries 'right))))
# Line 784  mail status in mode line")) Line 784  mail status in mode line"))
784    (customize-set-variable 'indicate-buffer-boundaries 'left))    (customize-set-variable 'indicate-buffer-boundaries 'left))
785    
786  (define-key menu-bar-showhide-fringe-ind-menu [left]  (define-key menu-bar-showhide-fringe-ind-menu [left]
787    '(menu-item "In left fringe" menu-bar-showhide-fringe-ind-left    '(menu-item "In Left Fringe" menu-bar-showhide-fringe-ind-left
788                :help "Show buffer boundaries and arrows in left fringe"                :help "Show buffer boundaries and arrows in left fringe"
789                :visible (display-graphic-p)                :visible (display-graphic-p)
790                :button (:radio . (eq indicate-buffer-boundaries 'left))))                :button (:radio . (eq indicate-buffer-boundaries 'left))))
# Line 795  mail status in mode line")) Line 795  mail status in mode line"))
795    (customize-set-variable 'indicate-buffer-boundaries nil))    (customize-set-variable 'indicate-buffer-boundaries nil))
796    
797  (define-key menu-bar-showhide-fringe-ind-menu [none]  (define-key menu-bar-showhide-fringe-ind-menu [none]
798    '(menu-item "No indicators" menu-bar-showhide-fringe-ind-none    '(menu-item "No Indicators" menu-bar-showhide-fringe-ind-none
799                :help "Hide all buffer boundary indicators and arrows"                :help "Hide all buffer boundary indicators and arrows"
800                :visible (display-graphic-p)                :visible (display-graphic-p)
801                :button (:radio . (eq indicate-buffer-boundaries nil))))                :button (:radio . (eq indicate-buffer-boundaries nil))))
802    
803  (define-key menu-bar-showhide-fringe-menu [showhide-fringe-ind]  (define-key menu-bar-showhide-fringe-menu [showhide-fringe-ind]
804    (list 'menu-item "Buffer boundaries" menu-bar-showhide-fringe-ind-menu    (list 'menu-item "Buffer Boundaries" menu-bar-showhide-fringe-ind-menu
805          :visible `(display-graphic-p)          :visible `(display-graphic-p)
806          :help "Indicate buffer boundaries in fringe"))          :help "Indicate buffer boundaries in fringe"))
807    
808  (define-key menu-bar-showhide-fringe-menu [indicate-empty-lines]  (define-key menu-bar-showhide-fringe-menu [indicate-empty-lines]
809    (menu-bar-make-toggle toggle-indicate-empty-lines indicate-empty-lines    (menu-bar-make-toggle toggle-indicate-empty-lines indicate-empty-lines
810                          "Empty line indicators"                          "Empty Line Indicators"
811                          "Indicating of empty lines %s"                          "Indicating of empty lines %s"
812                          "Indicate trailing empty lines in fringe"))                          "Indicate trailing empty lines in fringe"))
813    
# Line 817  mail status in mode line")) Line 817  mail status in mode line"))
817    (customize-variable 'fringe-mode))    (customize-variable 'fringe-mode))
818    
819  (define-key menu-bar-showhide-fringe-menu [customize]  (define-key menu-bar-showhide-fringe-menu [customize]
820    '(menu-item "Customize fringe" menu-bar-showhide-fringe-menu-customize    '(menu-item "Customize Fringe" menu-bar-showhide-fringe-menu-customize
821                :help "Detailed customization of fringe"                :help "Detailed customization of fringe"
822                :visible (display-graphic-p)))                :visible (display-graphic-p)))
823    
# Line 1009  mail status in mode line")) Line 1009  mail status in mode line"))
1009    '("--"))    '("--"))
1010  (define-key menu-bar-options-menu [cua-mode]  (define-key menu-bar-options-menu [cua-mode]
1011    (menu-bar-make-mm-toggle cua-mode    (menu-bar-make-mm-toggle cua-mode
1012                             "C-x/C-c/C-v cut and paste (CUA)"                             "C-x/C-c/C-v Cut and Paste (CUA)"
1013                             "Use C-z/C-x/C-c/C-v keys for undo/cut/copy/paste"))                             "Use C-z/C-x/C-c/C-v keys for undo/cut/copy/paste"))
1014    
1015  (define-key menu-bar-options-menu [case-fold-search]  (define-key menu-bar-options-menu [case-fold-search]

Legend:
Removed from v.1.267  
changed lines
  Added in v.1.268

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