Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 10:57:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(generate-calendar-month): Make highlighted text for mouse-2 a one character

Browse source 
wide for single-digit dates (this undoes the incorrect fix of May 30, 1994).
This commit is contained in:
Edward M. Reingold 1994-07-05 15:44:40 +00:00
parent d0a11f95f9
commit 55fbd565a3
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/calendar/calendar.el
View file

@ -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