Commit 4a4a82d6 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(showhide-date-time): Remove.

(menu-bar-showhide-menu): Use menu-bar-make-mm-toggle.
(menu-bar-make-mm-toggle): Simplify.
parent 44ebeb1b
2005-03-22 Stefan Monnier <monnier@iro.umontreal.ca>
* menu-bar.el (showhide-date-time): Remove.
(menu-bar-showhide-menu): Use menu-bar-make-mm-toggle.
(menu-bar-make-mm-toggle): Simplify.
2005-03-22 JUAN-LEON Lahoz Garcia <juanleon1@gmail.com>
* progmodes/perl-mode.el (perl-font-lock-keywords-2):
Accept qualified variable and function names.
2005-03-22 Thien-Thi Nguyen <ttn@gnu.org>
 
* bindings.el (completion-ignored-extensions):
......
;;; 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 @@ DOC is the text to use for the menu entry.
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 @@ by \"Save Options\" in Custom buffers.")
(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]
'("--"))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment