Mercurial > emacs
changeset 60826:1ab099658b40
(showhide-date-time): Remove.
(menu-bar-showhide-menu): Use menu-bar-make-mm-toggle.
(menu-bar-make-mm-toggle): Simplify.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 22 Mar 2005 19:44:30 +0000 |
| parents | cd1a709e8af3 |
| children | 092aae49fd5a |
| files | lisp/menu-bar.el |
| diffstat | 1 files changed, 6 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/menu-bar.el Tue Mar 22 19:43:13 2005 +0000 +++ b/lisp/menu-bar.el Tue Mar 22 19:44:30 2005 +0000 @@ -1,6 +1,7 @@ ;;; menu-bar.el --- define a default menu bar -;; Copyright (C) 1993,94,1995,2000,01,02,2003 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 1995, 2000, 2001, 2002, 2003, 2005 +;; Free Software Foundation, Inc. ;; Author: RMS ;; Maintainer: FSF @@ -596,7 +597,7 @@ HELP is the text to use for the tooltip. PROPS are additional properties." `'(menu-item ,doc ,fname - ,@(if props props) + ,@props :help ,help :button (:toggle . (and (default-boundp ',fname) (default-value ',fname))))) @@ -693,18 +694,10 @@ (define-key menu-bar-showhide-menu [linecolumn-separator] '("--")) -(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.")) - (customize-mark-as-set 'display-time-mode)) - (define-key menu-bar-showhide-menu [showhide-date-time] - '(menu-item "Date, Time and Mail" showhide-date-time - :help "Display date, time, mail status in mode line" - :button (:toggle . display-time-mode))) + (menu-bar-make-mm-toggle display-time-mode + "Date, Time and Mail" + "Display date, time, mail status in mode line")) (define-key menu-bar-showhide-menu [datetime-separator] '("--"))