# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 992783256 0
# Node ID fcbf5971fe12b1f3577655eff3f58088071492c6
# Parent  a7a0170d5939b3241794f70e53b800654b272220
(generate-calendar-month): Add help-echo to mouse-highlighted text.

diff -r a7a0170d5939 -r fcbf5971fe12 lisp/calendar/calendar.el
--- a/lisp/calendar/calendar.el	Sun Jun 17 11:47:54 2001 +0000
+++ b/lisp/calendar/calendar.el	Sun Jun 17 13:07:36 2001 +0000
@@ -1851,8 +1851,10 @@
    ;; Put in the days of the month
    (calendar-for-loop i from 1 to last do
       (insert (format "%2d " i))
-      (put-text-property (- (point) 3) (1- (point))
-			 'mouse-face 'highlight)
+      (add-text-properties
+       (- (point) 3) (1- (point))
+       '(mouse-face highlight
+	 help-echo "mouse-2: menu of operations for this date"))
       (and (zerop (mod (+ i blank-days) 7))
            (/= i last)
            (calendar-insert-indented "" 0 t)    ;; Force onto following line