diff options
| author | Edward M. Reingold | 1994-07-05 15:44:40 +0000 |
|---|---|---|
| committer | Edward M. Reingold | 1994-07-05 15:44:40 +0000 |
| commit | 55fbd565a38f3d584767decfeabecbbff02a5a55 (patch) | |
| tree | c76cc16f2368dc22c5b89e75c498ea7c73ad21e6 | |
| parent | d0a11f95f9c779adf1d808bb751c345857d533fc (diff) | |
| download | emacs-55fbd565a38f3d584767decfeabecbbff02a5a55.tar.gz emacs-55fbd565a38f3d584767decfeabecbbff02a5a55.zip | |
(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).
| -rw-r--r-- | lisp/calendar/calendar.el | 3 |
1 files changed, 2 insertions, 1 deletions
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." | |||
| 1402 | ;; Put in the days of the month | 1402 | ;; Put in the days of the month |
| 1403 | (calendar-for-loop i from 1 to last do | 1403 | (calendar-for-loop i from 1 to last do |
| 1404 | (insert (format "%2d " i)) | 1404 | (insert (format "%2d " i)) |
| 1405 | (put-text-property (- (point) 3) (1- (point)) 'mouse-face 'highlight) | 1405 | (put-text-property (- (point) (if (< i 10) 2 3)) (1- (point)) |
| 1406 | 'mouse-face 'highlight) | ||
| 1406 | (and (zerop (mod (+ i blank-days) 7)) | 1407 | (and (zerop (mod (+ i blank-days) 7)) |
| 1407 | (/= i last) | 1408 | (/= i last) |
| 1408 | (calendar-insert-indented "" 0 t) ;; Force onto following line | 1409 | (calendar-insert-indented "" 0 t) ;; Force onto following line |