615 |
|
|
616 |
(define-key menu-bar-showhide-menu [column-number-mode] |
(define-key menu-bar-showhide-menu [column-number-mode] |
617 |
(menu-bar-make-toggle toggle-column-number-mode column-number-mode |
(menu-bar-make-toggle toggle-column-number-mode column-number-mode |
618 |
"Show Column Number" "Column number mode %s" |
"Show Column Numbers" "Column number mode %s" |
619 |
"Show the current column number in the mode-line")) |
"Show the current column number in the mode line")) |
620 |
|
|
621 |
(define-key menu-bar-showhide-menu [line-number-mode] |
(define-key menu-bar-showhide-menu [line-number-mode] |
622 |
(menu-bar-make-toggle toggle-line-number-mode line-number-mode |
(menu-bar-make-toggle toggle-line-number-mode line-number-mode |
623 |
"Show Line Number" "Line number mode %s" |
"Show Line Numbers" "Line number mode %s" |
624 |
"Show the current line number in the mode-line")) |
"Show the current line number in the mode line")) |
625 |
|
|
626 |
(define-key menu-bar-showhide-menu [linecolumn-separator] |
(define-key menu-bar-showhide-menu [linecolumn-separator] |
627 |
'("--")) |
'("--")) |
638 |
(interactive) |
(interactive) |
639 |
(showhide-date-time) |
(showhide-date-time) |
640 |
(customize-mark-as-set 'display-time-mode)) |
(customize-mark-as-set 'display-time-mode)) |
641 |
:help "Display date and time in the mode-line" |
:help "Display date and time in the mode line" |
642 |
:button (:toggle . display-time-mode))) |
:button (:toggle . display-time-mode))) |
643 |
|
|
644 |
(define-key menu-bar-showhide-menu [datetime-separator] |
(define-key menu-bar-showhide-menu [datetime-separator] |
646 |
|
|
647 |
(define-key menu-bar-showhide-menu [showhide-speedbar] |
(define-key menu-bar-showhide-menu [showhide-speedbar] |
648 |
'(menu-item "Speedbar" speedbar-frame-mode |
'(menu-item "Speedbar" speedbar-frame-mode |
649 |
:help "Display speedbar" |
:help "Display a Speedbar quick-navigation frame" |
650 |
:button (:toggle |
:button (:toggle |
651 |
. (and (boundp 'speedbar-frame) |
. (and (boundp 'speedbar-frame) |
652 |
(frame-live-p (symbol-value 'speedbar-frame)) |
(frame-live-p (symbol-value 'speedbar-frame)) |
661 |
(interactive) |
(interactive) |
662 |
(customize-set-variable 'scroll-bar-mode 'right)) |
(customize-set-variable 'scroll-bar-mode 'right)) |
663 |
:help "Scroll-bar on the right side" |
:help "Scroll-bar on the right side" |
664 |
:visible window-system |
:visible (display-graphic-p) |
665 |
:button (:radio . (eq (cdr (assq 'vertical-scroll-bars |
:button (:radio . (eq (cdr (assq 'vertical-scroll-bars |
666 |
(frame-parameters))) 'right)))) |
(frame-parameters))) 'right)))) |
667 |
|
|
671 |
(interactive) |
(interactive) |
672 |
(customize-set-variable 'scroll-bar-mode 'left)) |
(customize-set-variable 'scroll-bar-mode 'left)) |
673 |
:help "Scroll-bar on the left side" |
:help "Scroll-bar on the left side" |
674 |
:visible window-system |
:visible (display-graphic-p) |
675 |
:button (:radio . (eq (cdr (assq 'vertical-scroll-bars |
:button (:radio . (eq (cdr (assq 'vertical-scroll-bars |
676 |
(frame-parameters))) 'left)))) |
(frame-parameters))) 'left)))) |
677 |
|
|
681 |
(interactive) |
(interactive) |
682 |
(customize-set-variable 'scroll-bar-mode nil)) |
(customize-set-variable 'scroll-bar-mode nil)) |
683 |
:help "Turn off scroll-bar" |
:help "Turn off scroll-bar" |
684 |
:visible window-system |
:visible (display-graphic-p) |
685 |
:button (:radio . (eq (cdr (assq 'vertical-scroll-bars |
:button (:radio . (eq (cdr (assq 'vertical-scroll-bars |
686 |
(frame-parameters))) nil)))) |
(frame-parameters))) nil)))) |
687 |
|
|
688 |
(define-key menu-bar-showhide-menu [showhide-scroll-bar] |
(define-key menu-bar-showhide-menu [showhide-scroll-bar] |
689 |
(list 'menu-item "Scroll-bar" menu-bar-showhide-scroll-bar-menu |
(list 'menu-item "Scroll-bar" menu-bar-showhide-scroll-bar-menu |
690 |
:visible 'window-system |
:visible `(display-graphic-p) |
691 |
:help "Select scroll-bar mode")) |
:help "Select scroll-bar mode")) |
692 |
|
|
693 |
(defun showhide-menu-bar () |
(defun showhide-menu-bar () |
696 |
(menu-bar-mode) |
(menu-bar-mode) |
697 |
(if menu-bar-mode |
(if menu-bar-mode |
698 |
(message "Menu-bar mode enabled.") |
(message "Menu-bar mode enabled.") |
699 |
(message "Menu-bar mode disabled. Use M-x menu-bar-mode to make the menu bar appear."))) |
(message "Menu-bar mode disabled. Use M-x menu-bar-mode to make the menu bar appear.")) |
700 |
|
(customize-mark-as-set 'menu-bar-mode)) |
701 |
|
|
702 |
(define-key menu-bar-showhide-menu [showhide-menu-bar] |
(define-key menu-bar-showhide-menu [showhide-menu-bar] |
703 |
'(menu-item "Menu-bar" |
'(menu-item "Menu-bar" showhide-menu-bar |
|
(lambda () |
|
|
(interactive) |
|
|
(showhide-menu-bar) |
|
|
(customize-mark-as-set 'menu-bar-mode)) |
|
704 |
:help "Toggle menu-bar on/off" |
:help "Toggle menu-bar on/off" |
705 |
:button (:toggle . menu-bar-mode))) |
:button (:toggle . menu-bar-mode))) |
706 |
|
|
707 |
(defun showhide-tool-bar () |
(defun showhide-toolbar () |
708 |
"Toggle whether to turn tool-bar on/off." |
"Toggle whether to turn tool-bar on/off." |
709 |
(interactive) |
(interactive) |
710 |
(if (tool-bar-mode) |
(if (tool-bar-mode) |
711 |
(message "Tool-bar mode enabled.") |
(message "Tool-bar mode enabled.") |
712 |
(message "Tool-bar mode disabled."))) |
(message "Tool-bar mode disabled.")) |
713 |
|
(customize-mark-as-set 'tool-bar-mode)) |
714 |
|
|
715 |
(define-key menu-bar-showhide-menu [showhide-tool-bar] |
(define-key menu-bar-showhide-menu [showhide-tool-bar] |
716 |
'(menu-item "Tool-bar" |
(list 'menu-item "Tool-bar" 'showhide-toolbar |
717 |
(lambda () |
:help "Turn tool-bar on/off" |
718 |
(interactive) |
:visible `(display-graphic-p) |
719 |
(showhide-tool-bar) |
:button `(:toggle . tool-bar-mode))) |
|
(customize-mark-as-set 'tool-bar-mode)) |
|
|
:help "Turn tool-bar on/off" |
|
|
:visible window-system |
|
|
:button (:toggle . tool-bar-mode))) |
|
720 |
|
|
721 |
(define-key menu-bar-options-menu [showhide] |
(define-key menu-bar-options-menu [showhide] |
722 |
(list 'menu-item "Show/Hide" menu-bar-showhide-menu |
(list 'menu-item "Show/Hide" menu-bar-showhide-menu |