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] |
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))) |
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) |
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 |
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)))) |
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)))) |
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 |
|
|
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 |
|
|
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] |