Mercurial > emacs

changeset 7759:814aaac0b155

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(generate-calendar-month): Make highlighted text for mouse-2 a full column (2 chars) wide, even for single-digit dates.
author Edward M. Reingold <reingold@emr.cs.iit.edu>
date Mon, 30 May 1994 14:51:16 +0000
parents ce538d63b1e9
children 4edcac57a8f2
files lisp/calendar/calendar.el
diffstat 1 files changed, 1 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/calendar.el	Mon May 30 12:55:41 1994 +0000
+++ b/lisp/calendar/calendar.el	Mon May 30 14:51:16 1994 +0000
@@ -1407,8 +1407,7 @@
    ;; Put in the days of the month
    (calendar-for-loop i from 1 to last do
       (insert (format "%2d " i))
-      (put-text-property (- (point) (if (< i 10) 2 3)) (1- (point))
-			 'mouse-face 'highlight)
+      (put-text-property (- (point) 3) (1- (point)) 'mouse-face 'highlight)
       (and (zerop (calendar-mod (+ i blank-days) 7))
            (/= i last)
            (calendar-insert-indented "" 0 t)    ;; Force onto following line