diff options
| author | Edward M. Reingold <reingold@emr.cs.iit.edu> | 1994-07-05 15:44:40 +0000 |
|---|---|---|
| committer | Edward M. Reingold <reingold@emr.cs.iit.edu> | 1994-07-05 15:44:40 +0000 |
| commit | f66573efde86a0f7cb7048956c6a7c14ce8cb352 (patch) | |
| tree | d2685e4cb21438a99a410a755d4ed309346d20ae /lisp | |
| parent | ad7a6138f2c6460b38c0115e713ff24b2b45f135 (diff) | |
| download | emacs-f66573efde86a0f7cb7048956c6a7c14ce8cb352.tar.gz | |
(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).
Diffstat (limited to 'lisp')
| -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." ;; 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 |