484 |
|
|
485 |
;; The "Options" menu items |
;; The "Options" menu items |
486 |
|
|
|
;; The "Show/Hide" submenu of menu "Options" |
|
|
|
|
|
(defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide")) |
|
|
(defvar menu-bar-showhide-scroll-bar-menu (make-sparse-keymap "Scroll-bar")) |
|
|
|
|
|
(defun menu-bar-scroll-bar-right () |
|
|
"Turn on the scroll-bar on the right side." |
|
|
(interactive) |
|
|
(set-scroll-bar-mode 'right)) |
|
|
|
|
|
(defun menu-bar-scroll-bar-left () |
|
|
"Turn on the scroll-bar on the left side." |
|
|
(interactive) |
|
|
(set-scroll-bar-mode 'left)) |
|
|
|
|
|
(defun menu-bar-scroll-bar-none () |
|
|
"Turn off the scroll-bar." |
|
|
(interactive) |
|
|
(set-scroll-bar-mode nil)) |
|
|
|
|
|
(define-key menu-bar-showhide-scroll-bar-menu [right] |
|
|
'(menu-item "On the Right" menu-bar-scroll-bar-right |
|
|
:help "Scroll-bar on the right side" |
|
|
:visible window-system |
|
|
:button (:radio . (eq scroll-bar-mode 'right)))) |
|
|
|
|
|
(define-key menu-bar-showhide-scroll-bar-menu [left] |
|
|
'(menu-item "On the Left" menu-bar-scroll-bar-left |
|
|
:help "Scroll-bar on the left side" |
|
|
:visible window-system |
|
|
:button (:radio . (eq scroll-bar-mode 'left)))) |
|
|
|
|
|
(define-key menu-bar-showhide-scroll-bar-menu [none] |
|
|
'(menu-item "None" menu-bar-scroll-bar-none |
|
|
:help "Turn off scroll-bar" |
|
|
:visible window-system |
|
|
:button (:radio . (eq scroll-bar-mode nil)))) |
|
|
|
|
|
(define-key menu-bar-showhide-menu [showhide-scroll-bar] |
|
|
(list 'menu-item "Scroll-Bar" menu-bar-showhide-scroll-bar-menu |
|
|
:visible 'window-system |
|
|
:help "Select scroll-bar mode")) |
|
|
|
|
|
(defun showhide-menu-bar () |
|
|
"Toggle whether to turn menu-bar on/off." |
|
|
(interactive) |
|
|
(if (menu-bar-mode) |
|
|
(message "Menu-bar mode enabled.") |
|
|
(message "Menu-bar mode disabled. Use M-x menu-bar-mode to make the menu bar appear."))) |
|
|
|
|
|
(define-key menu-bar-showhide-menu [showhide-menu-bar] |
|
|
'(menu-item "Menu-bar" showhide-menu-bar |
|
|
:help "Toggle menu-bar on/off" |
|
|
:button (:toggle . menu-bar-mode))) |
|
|
|
|
|
(defun showhide-tool-bar () |
|
|
"Toggle whether to turn tool-bar on/off." |
|
|
(interactive) |
|
|
(if (tool-bar-mode) |
|
|
(message "Tool-bar mode enabled.") |
|
|
(message "Tool-bar mode disabled."))) |
|
|
|
|
|
(define-key menu-bar-showhide-menu [showhide-tool-bar] |
|
|
'(menu-item "Tool-bar" showhide-tool-bar |
|
|
:help "Turn tool-bar on/off" |
|
|
:visible window-system |
|
|
:button (:toggle . tool-bar-mode))) |
|
|
|
|
|
(define-key menu-bar-options-menu [showhide] |
|
|
(list 'menu-item "Show/Hide" menu-bar-showhide-menu |
|
|
:help "Toggle on/off various display features")) |
|
|
|
|
|
(define-key menu-bar-options-menu [showhide-separator] |
|
|
'("--")) |
|
|
|
|
|
|
|
487 |
(defvar menu-bar-custom-menu (make-sparse-keymap "Customize")) |
(defvar menu-bar-custom-menu (make-sparse-keymap "Customize")) |
488 |
|
|
489 |
(define-key menu-bar-custom-menu [customize-apropos-groups] |
(define-key menu-bar-custom-menu [customize-apropos-groups] |
548 |
(dolist (elt '(debug-on-quit debug-on-error auto-compression-mode |
(dolist (elt '(debug-on-quit debug-on-error auto-compression-mode |
549 |
case-fold-search truncate-lines show-paren-mode |
case-fold-search truncate-lines show-paren-mode |
550 |
transient-mark-mode global-font-lock-mode |
transient-mark-mode global-font-lock-mode |
551 |
current-language-environment default-input-method)) |
current-language-environment default-input-method |
552 |
|
default-frame-alist)) |
553 |
(if (default-value elt) |
(if (default-value elt) |
554 |
(customize-save-variable elt (default-value elt)))) |
(customize-save-variable elt (default-value elt)))) |
555 |
(if (memq 'turn-on-auto-fill text-mode-hook) |
(if (memq 'turn-on-auto-fill text-mode-hook) |
568 |
(define-key menu-bar-options-menu [custom-separator] |
(define-key menu-bar-options-menu [custom-separator] |
569 |
'("--")) |
'("--")) |
570 |
|
|
571 |
|
;; The "Show/Hide" submenu of menu "Options" |
572 |
|
|
573 |
|
(defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide")) |
574 |
|
(defvar menu-bar-showhide-scroll-bar-menu (make-sparse-keymap "Scroll-bar")) |
575 |
|
|
576 |
|
(defun menu-bar-scroll-bar-right () |
577 |
|
"Turn on the scroll-bar on the right side." |
578 |
|
(interactive) |
579 |
|
(set-scroll-bar-mode 'right)) |
580 |
|
|
581 |
|
(defun menu-bar-scroll-bar-left () |
582 |
|
"Turn on the scroll-bar on the left side." |
583 |
|
(interactive) |
584 |
|
(set-scroll-bar-mode 'left)) |
585 |
|
|
586 |
|
(defun menu-bar-scroll-bar-none () |
587 |
|
"Turn off the scroll-bar." |
588 |
|
(interactive) |
589 |
|
(set-scroll-bar-mode nil)) |
590 |
|
|
591 |
|
(define-key menu-bar-showhide-scroll-bar-menu [right] |
592 |
|
'(menu-item "On the Right" menu-bar-scroll-bar-right |
593 |
|
:help "Scroll-bar on the right side" |
594 |
|
:visible window-system |
595 |
|
:button (:radio . (eq (cdr (assq 'vertical-scroll-bars (frame-parameters))) 'right)))) |
596 |
|
|
597 |
|
(define-key menu-bar-showhide-scroll-bar-menu [left] |
598 |
|
'(menu-item "On the Left" menu-bar-scroll-bar-left |
599 |
|
:help "Scroll-bar on the left side" |
600 |
|
:visible window-system |
601 |
|
:button (:radio . (eq (cdr (assq 'vertical-scroll-bars (frame-parameters))) 'left)))) |
602 |
|
|
603 |
|
(define-key menu-bar-showhide-scroll-bar-menu [none] |
604 |
|
'(menu-item "None" menu-bar-scroll-bar-none |
605 |
|
:help "Turn off scroll-bar" |
606 |
|
:visible window-system |
607 |
|
:button (:radio . (eq (cdr (assq 'vertical-scroll-bars (frame-parameters))) nil)))) |
608 |
|
|
609 |
|
(define-key menu-bar-showhide-menu [showhide-scroll-bar] |
610 |
|
(list 'menu-item "Scroll-Bar" menu-bar-showhide-scroll-bar-menu |
611 |
|
:visible 'window-system |
612 |
|
:help "Select scroll-bar mode")) |
613 |
|
|
614 |
|
(defun showhide-menu-bar () |
615 |
|
"Toggle whether to turn menu-bar on/off." |
616 |
|
(interactive) |
617 |
|
(menu-bar-mode) |
618 |
|
(if menu-bar-mode |
619 |
|
(message "Menu-bar mode enabled.") |
620 |
|
(message "Menu-bar mode disabled. Use M-x menu-bar-mode to make the menu bar appear."))) |
621 |
|
|
622 |
|
(define-key menu-bar-showhide-menu [showhide-menu-bar] |
623 |
|
'(menu-item "Menu-bar" showhide-menu-bar |
624 |
|
:help "Toggle menu-bar on/off" |
625 |
|
:button (:toggle . menu-bar-mode))) |
626 |
|
|
627 |
|
(defun showhide-tool-bar () |
628 |
|
"Toggle whether to turn tool-bar on/off." |
629 |
|
(interactive) |
630 |
|
(if (tool-bar-mode) |
631 |
|
(message "Tool-bar mode enabled.") |
632 |
|
(message "Tool-bar mode disabled."))) |
633 |
|
|
634 |
|
(define-key menu-bar-showhide-menu [showhide-tool-bar] |
635 |
|
'(menu-item "Tool-bar" showhide-tool-bar |
636 |
|
:help "Turn tool-bar on/off" |
637 |
|
:visible window-system |
638 |
|
:button (:toggle . tool-bar-mode))) |
639 |
|
|
640 |
|
(define-key menu-bar-options-menu [showhide] |
641 |
|
(list 'menu-item "Show/Hide" menu-bar-showhide-menu |
642 |
|
:help "Toggle on/off various display features")) |
643 |
|
|
644 |
|
(define-key menu-bar-options-menu [showhide-separator] |
645 |
|
'("--")) |
646 |
|
|
647 |
(define-key menu-bar-options-menu [mule] |
(define-key menu-bar-options-menu [mule] |
648 |
;; It is better not to use backquote here, |
;; It is better not to use backquote here, |
649 |
;; because that makes a bootstrapping problem |
;; because that makes a bootstrapping problem |