Mercurial > emacs

changeset 38088:fcbf5971fe12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(generate-calendar-month): Add help-echo to mouse-highlighted text.
author Eli Zaretskii <eliz@gnu.org>
date Sun, 17 Jun 2001 13:07:36 +0000
parents a7a0170d5939
children b0bbc7c135f2
files lisp/calendar/calendar.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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