From c230f36b7ba44a75313a95a5b6f7d070c3d2ebd1 Mon Sep 17 00:00:00 2001 From: "Edward M. Reingold" Date: Mon, 30 May 1994 14:51:16 +0000 Subject: [PATCH] (generate-calendar-month): Make highlighted text for mouse-2 a full column (2 chars) wide, even for single-digit dates. --- lisp/calendar/calendar.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index 18e9dbee947..2cf4dc76f92 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -1407,8 +1407,7 @@ 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) + (put-text-property (- (point) 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