From c9434ed66d1e3a6d8210b45e91b998ee89904697 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 4 Apr 1994 22:59:59 +0000 Subject: [PATCH] (generate-calendar-month): Add mouse-face properties. --- lisp/calendar/calendar.el | 2 ++ 1 file changed, 2 insertions(+) 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." ;; Put in the days of the month (calendar-for-loop i from 1 to last do (insert (format "%2d " i)) + (put-text-property (- (point) (if (< i 10) 2 3)) (1- (point)) + 'mouse-face 'highlight) (and (zerop (calendar-mod (+ i blank-days) 7)) (/= i last) (calendar-insert-indented "" 0 t) ;; Force onto following line -- 2.39.5