From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 22 Mar 2005 19:44:38 +0000 (+0000)
Subject: (showhide-date-time): Remove.
X-Git-Tag: ttn-vms-21-2-B4~1623
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4a4a82d641ebf61e53f6e0d211f27456d0f38d00;p=emacs.git

(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 468bd38c74b..4d09c2127f8 100644
--- 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 8dfb6a792df..d988cae1260 100644
--- 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]
   '("--"))