(generate-calendar-month): Add help-echo to mouse-highlighted text.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2939f0e743f58af67db9f8d9c991941511f996d8..c0b82cec3aa4d8fc453a65e77f8b012bbc9fe0a1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-06-17  Eli Zaretskii  <eliz@is.elta.co.il>
 
+       * calendar/calendar.el (generate-calendar-month): Add help-echo to
+       mouse-highlighted text.
+
        * net/quickurl.el (quickurl-url-file): Run through
        convert-standard-filename.
        (quickurl-list-populate-buffer): Add help-echo to

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 0bacaf805db7582aa110c9807a416f87fab3128d..596d3661b24792f8198e72841a74b6b6bd8e51be 100644 (file)
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -1851,8 +1851,10 @@ characters on the line."
    ;; 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