diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2001-06-17 13:10:27 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2001-06-17 13:10:27 +0000 |
| commit | 218abc51ff71116c3e56c73d6e17f14a6845137c (patch) | |
| tree | df8aa98a4398bf5a3bb424135b83177ddfefc32b /lisp | |
| parent | d36ca65d654dbe3cd25ceb3e26962dd88f48883b (diff) | |
| download | emacs-218abc51ff71116c3e56c73d6e17f14a6845137c.tar.gz | |
(generate-calendar-month): Add help-echo to mouse-highlighted text.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | 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 <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 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 |