# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 997368722 0
# Node ID 445bd2ae602afe445c0c8b76482f73d009f86194
# Parent  a86b8b3e96fdd76206f70a70136303ec2c835064
(display-time-string-forms): Use
make-mode-line-mouse-map instead of make-mode-line-mouse2-map.

diff -r a86b8b3e96fd -r 445bd2ae602a lisp/time.el
--- a/lisp/time.el	Thu Aug 09 14:51:48 2001 +0000
+++ b/lisp/time.el	Thu Aug 09 14:52:02 2001 +0000
@@ -143,7 +143,8 @@
 						  display-time-mail-face
 						  :background)))
 		 'help-echo "mouse-2: Read mail"
-		 'local-map (make-mode-line-mouse2-map read-mail-command)))
+		 'local-map (make-mode-line-mouse-map 'mouse-2 
+						      read-mail-command)))
       ""))
   "*A list of expressions governing display of the time in the mode line.
 For most purposes, you can control the time format using `display-time-format'