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)) |
default-frame-alist display-time-mode)) |
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) |
571 |
;; The "Show/Hide" submenu of menu "Options" |
;; The "Show/Hide" submenu of menu "Options" |
572 |
|
|
573 |
(defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide")) |
(defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide")) |
574 |
|
|
575 |
|
(defun showhide-date-time () |
576 |
|
"Toggle whether to show date and time in the mode-line." |
577 |
|
(interactive) |
578 |
|
(if (display-time-mode) |
579 |
|
(message "Display-time mode enabled.") |
580 |
|
(message "Display-time mode disabled."))) |
581 |
|
|
582 |
|
(define-key menu-bar-showhide-menu [showhide-date-time] |
583 |
|
'(menu-item "Date and time" showhide-date-time |
584 |
|
:help "Display date and time in the mode-line" |
585 |
|
:button (:toggle . display-time-mode))) |
586 |
|
|
587 |
|
(define-key menu-bar-showhide-menu [datetime-separator] |
588 |
|
'("--")) |
589 |
|
|
590 |
(defvar menu-bar-showhide-scroll-bar-menu (make-sparse-keymap "Scroll-bar")) |
(defvar menu-bar-showhide-scroll-bar-menu (make-sparse-keymap "Scroll-bar")) |
591 |
|
|
592 |
(defun menu-bar-scroll-bar-right () |
(defun menu-bar-scroll-bar-right () |
1059 |
:help "Where to find some extra packages and possible updates")) |
:help "Where to find some extra packages and possible updates")) |
1060 |
(define-key menu-bar-help-menu [about] |
(define-key menu-bar-help-menu [about] |
1061 |
'(menu-item "About Emacs" display-splash-screen |
'(menu-item "About Emacs" display-splash-screen |
1062 |
:help "Display splash screen, version, and instructions")) |
:help "Display version number, copyright info, and basic help")) |
1063 |
(define-key menu-bar-help-menu [sep2] |
(define-key menu-bar-help-menu [sep2] |
1064 |
'("--")) |
'("--")) |
1065 |
(define-key menu-bar-help-menu [finder-by-keyword] |
(define-key menu-bar-help-menu [finder-by-keyword] |