Commit 55fbd565 authored by Edward M. Reingold's avatar Edward M. Reingold

(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).
parent d0a11f95
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment