diff options
| author | Karl Heuer | 1994-04-04 22:59:59 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-04-04 22:59:59 +0000 |
| commit | c9434ed66d1e3a6d8210b45e91b998ee89904697 (patch) | |
| tree | 8b53811f293dd268daa39a578388f634b63e3065 | |
| parent | ef2b0b8983ac1a1137f1b073fefc04c88fd81edc (diff) | |
| download | emacs-c9434ed66d1e3a6d8210b45e91b998ee89904697.tar.gz emacs-c9434ed66d1e3a6d8210b45e91b998ee89904697.zip | |
(generate-calendar-month): Add mouse-face properties.
| -rw-r--r-- | lisp/calendar/calendar.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index 74d1c52e0a1..b1495c45633 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el | |||
| @@ -1387,6 +1387,8 @@ characters on the line." | |||
| 1387 | ;; Put in the days of the month | 1387 | ;; Put in the days of the month |
| 1388 | (calendar-for-loop i from 1 to last do | 1388 | (calendar-for-loop i from 1 to last do |
| 1389 | (insert (format "%2d " i)) | 1389 | (insert (format "%2d " i)) |
| 1390 | (put-text-property (- (point) (if (< i 10) 2 3)) (1- (point)) | ||
| 1391 | 'mouse-face 'highlight) | ||
| 1390 | (and (zerop (calendar-mod (+ i blank-days) 7)) | 1392 | (and (zerop (calendar-mod (+ i blank-days) 7)) |
| 1391 | (/= i last) | 1393 | (/= i last) |
| 1392 | (calendar-insert-indented "" 0 t) ;; Force onto following line | 1394 | (calendar-insert-indented "" 0 t) ;; Force onto following line |