# HG changeset patch # User Pavel Jank # Date 1012735708 0 # Node ID 2f5ddf0e74ba4e531ef77533a0aac3959d62d85d # Parent dbd943055406c5b1c51eb3474f8d7b0f96618fcc (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". diff -r dbd943055406 -r 2f5ddf0e74ba lisp/menu-bar.el --- a/lisp/menu-bar.el Sun Feb 03 11:25:50 2002 +0000 +++ b/lisp/menu-bar.el Sun Feb 03 11:28:28 2002 +0000 @@ -549,7 +549,7 @@ case-fold-search truncate-lines show-paren-mode transient-mark-mode global-font-lock-mode current-language-environment default-input-method - default-frame-alist)) + default-frame-alist display-time-mode)) (if (default-value elt) (customize-save-variable elt (default-value elt)))) (if (memq 'turn-on-auto-fill text-mode-hook) @@ -571,6 +571,22 @@ ;; The "Show/Hide" submenu of menu "Options" (defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide")) + +(defun showhide-date-time () + "Toggle whether to show date and time in the mode-line." + (interactive) + (if (display-time-mode) + (message "Display-time mode enabled.") + (message "Display-time mode disabled."))) + +(define-key menu-bar-showhide-menu [showhide-date-time] + '(menu-item "Date and time" showhide-date-time + :help "Display date and time in the mode-line" + :button (:toggle . display-time-mode))) + +(define-key menu-bar-showhide-menu [datetime-separator] + '("--")) + (defvar menu-bar-showhide-scroll-bar-menu (make-sparse-keymap "Scroll-bar")) (defun menu-bar-scroll-bar-right () @@ -1043,7 +1059,7 @@ :help "Where to find some extra packages and possible updates")) (define-key menu-bar-help-menu [about] '(menu-item "About Emacs" display-splash-screen - :help "Display splash screen, version, and instructions")) + :help "Display version number, copyright info, and basic help")) (define-key menu-bar-help-menu [sep2] '("--")) (define-key menu-bar-help-menu [finder-by-keyword]