diff options
| author | Edward M. Reingold | 1994-05-30 14:51:16 +0000 |
|---|---|---|
| committer | Edward M. Reingold | 1994-05-30 14:51:16 +0000 |
| commit | c230f36b7ba44a75313a95a5b6f7d070c3d2ebd1 (patch) | |
| tree | 13db43ac2a4c6d3108a0e8d53da0a9d3c633095c | |
| parent | bd48a05275fa230baab8c434132b0be5807ca9cb (diff) | |
| download | emacs-c230f36b7ba44a75313a95a5b6f7d070c3d2ebd1.tar.gz emacs-c230f36b7ba44a75313a95a5b6f7d070c3d2ebd1.zip | |
(generate-calendar-month): Make highlighted text for mouse-2 a full column (2
chars) wide, even for single-digit dates.
| -rw-r--r-- | lisp/calendar/calendar.el | 3 |
1 files changed, 1 insertions, 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." | |||
| 1407 | ;; Put in the days of the month | 1407 | ;; Put in the days of the month |
| 1408 | (calendar-for-loop i from 1 to last do | 1408 | (calendar-for-loop i from 1 to last do |
| 1409 | (insert (format "%2d " i)) | 1409 | (insert (format "%2d " i)) |
| 1410 | (put-text-property (- (point) (if (< i 10) 2 3)) (1- (point)) | 1410 | (put-text-property (- (point) 3) (1- (point)) 'mouse-face 'highlight) |
| 1411 | 'mouse-face 'highlight) | ||
| 1412 | (and (zerop (calendar-mod (+ i blank-days) 7)) | 1411 | (and (zerop (calendar-mod (+ i blank-days) 7)) |
| 1413 | (/= i last) | 1412 | (/= i last) |
| 1414 | (calendar-insert-indented "" 0 t) ;; Force onto following line | 1413 | (calendar-insert-indented "" 0 t) ;; Force onto following line |