Commit 218abc51 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

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

parent d36ca65d
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
(quickurl-list-populate-buffer): Add help-echo to
......@@ -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)
(- (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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment