From 218abc51ff71116c3e56c73d6e17f14a6845137c Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 17 Jun 2001 13:10:27 +0000 Subject: [PATCH] (generate-calendar-month): Add help-echo to mouse-highlighted text. --- lisp/ChangeLog | 3 +++ lisp/calendar/calendar.el | 6 ++++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2939f0e743f..c0b82cec3aa 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2001-06-17 Eli Zaretskii + * 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 0bacaf805db..596d3661b24 100644 --- 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 -- 2.39.2