Mercurial > emacs

changeset 6668:5ab295d49e7f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(generate-calendar-month): Add mouse-face properties.
author Karl Heuer <kwzh@gnu.org>
date Mon, 04 Apr 1994 22:59:59 +0000
parents 569c3687217f
children 11db8cd482ad
files lisp/calendar/calendar.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/calendar.el	Mon Apr 04 21:55:52 1994 +0000
+++ b/lisp/calendar/calendar.el	Mon Apr 04 22:59:59 1994 +0000
@@ -1387,6 +1387,8 @@
    ;; 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