# HG changeset patch
# User Edward M. Reingold <reingold@emr.cs.iit.edu>
# Date 773423080 0
# Node ID 1c621b9896c0a19e86a8461c95f9c8cae0917c4a
# Parent  66a5487be3a76a98af38b623983ea44056397e81
(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).

diff -r 66a5487be3a7 -r 1c621b9896c0 lisp/calendar/calendar.el
--- a/lisp/calendar/calendar.el	Tue Jul 05 07:25:05 1994 +0000
+++ b/lisp/calendar/calendar.el	Tue Jul 05 15:44:40 1994 +0000
@@ -1402,7 +1402,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) 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