Mercurial > emacs

comparison lisp/menu-bar.el @ 43086:2f5ddf0e74ba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(menu-bar-help-menu): Use different text for tool-tip. (menu-bar-options-save): Save also the value of `display-time-mode'. (showhide-date-time): New function. (menu-bar-showhide-menu): New menu-item "Date and time".
author Pavel Janík <Pavel@Janik.cz>
date Sun, 03 Feb 2002 11:28:28 +0000
parents 9a93c325183a
children 6dab4dad0093
comparison
equal deleted inserted replaced
43085:dbd943055406 43086:2f5ddf0e74ba
547 (interactive) 547 (interactive)
548 (dolist (elt '(debug-on-quit debug-on-error auto-compression-mode 548 (dolist (elt '(debug-on-quit debug-on-error auto-compression-mode
549 case-fold-search truncate-lines show-paren-mode 549 case-fold-search truncate-lines show-paren-mode
550 transient-mark-mode global-font-lock-mode 550 transient-mark-mode global-font-lock-mode
551 current-language-environment default-input-method 551 current-language-environment default-input-method
552 default-frame-alist)) 552 default-frame-alist display-time-mode))
553 (if (default-value elt) 553 (if (default-value elt)
554 (customize-save-variable elt (default-value elt)))) 554 (customize-save-variable elt (default-value elt))))
555 (if (memq 'turn-on-auto-fill text-mode-hook) 555 (if (memq 'turn-on-auto-fill text-mode-hook)
556 (customize-save-variable 'text-mode-hook 556 (customize-save-variable 'text-mode-hook
557 (default-value 'text-mode-hook))) 557 (default-value 'text-mode-hook)))
569 '("--")) 569 '("--"))
570 570
571 ;; The "Show/Hide" submenu of menu "Options" 571 ;; The "Show/Hide" submenu of menu "Options"
572 572
573 (defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide")) 573 (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
574 (defvar menu-bar-showhide-scroll-bar-menu (make-sparse-keymap "Scroll-bar")) 590 (defvar menu-bar-showhide-scroll-bar-menu (make-sparse-keymap "Scroll-bar"))
575 591
576 (defun menu-bar-scroll-bar-right () 592 (defun menu-bar-scroll-bar-right ()
577 "Turn on the scroll-bar on the right side." 593 "Turn on the scroll-bar on the right side."
578 (interactive) 594 (interactive)
1041 data-directory)) 1057 data-directory))
1042 (goto-address))) 1058 (goto-address)))
1043 :help "Where to find some extra packages and possible updates")) 1059 :help "Where to find some extra packages and possible updates"))
1044 (define-key menu-bar-help-menu [about] 1060 (define-key menu-bar-help-menu [about]
1045 '(menu-item "About Emacs" display-splash-screen 1061 '(menu-item "About Emacs" display-splash-screen
1046 :help "Display splash screen, version, and instructions")) 1062 :help "Display version number, copyright info, and basic help"))
1047 (define-key menu-bar-help-menu [sep2] 1063 (define-key menu-bar-help-menu [sep2]
1048 '("--")) 1064 '("--"))
1049 (define-key menu-bar-help-menu [finder-by-keyword] 1065 (define-key menu-bar-help-menu [finder-by-keyword]
1050 '(menu-item "Find Emacs Packages..." finder-by-keyword 1066 '(menu-item "Find Emacs Packages..." finder-by-keyword
1051 :help "Find packages and features by keyword")) 1067 :help "Find packages and features by keyword"))