From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 4 Apr 1994 22:59:59 +0000 (+0000)
Subject: (generate-calendar-month): Add mouse-face properties.
X-Git-Tag: emacs-19.34~9184
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c9434ed66d1e3a6d8210b45e91b998ee89904697;p=emacs.git

(generate-calendar-month): Add mouse-face properties.
---

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