From 55fbd565a38f3d584767decfeabecbbff02a5a55 Mon Sep 17 00:00:00 2001 From: "Edward M. Reingold" Date: Tue, 5 Jul 1994 15:44:40 +0000 Subject: [PATCH] (generate-calendar-month): Make highlighted text for mouse-2 a one character wide for single-digit dates (this undoes the incorrect fix of May 30, 1994). --- lisp/calendar/calendar.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index 2cc35b6f182..bb3aaed68b5 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -1402,7 +1402,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) 3) (1- (point)) 'mouse-face 'highlight) + (put-text-property (- (point) (if (< i 10) 2 3)) (1- (point)) + 'mouse-face 'highlight) (and (zerop (mod (+ i blank-days) 7)) (/= i last) (calendar-insert-indented "" 0 t) ;; Force onto following line -- 2.11.4.GIT