(showhide-date-time): Remove.

(menu-bar-showhide-menu): Use menu-bar-make-mm-toggle.
(menu-bar-make-mm-toggle): Simplify.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 468bd38c74b403ba2b319253e013a1916d13c085..4d09c2127f8842dab84bbbbc3da3a494870593bb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+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):

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 8dfb6a792df93dcf4352c01fd5df486b181a9264..d988cae1260870ff39a6bbb4af9a9c35b5536423 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -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 @@ 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]
   '("--"))