[Emacs-diffs] trunk r113697: * lisp/calendar/calendar.el (calendar-generate-month):

[Glenn Morris]

------------------------------------------------------------
revno: 113697
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sun 2013-08-04 23:49:37 -0700
message:
  * lisp/calendar/calendar.el (calendar-generate-month):
  Fix for calendar-column-width != 1 + calendar-day-digit-width.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/calendar/calendar.el      calendar.el-20091113204419-o5vbwnq5f7feedwu-478

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-08-05 04:45:17 +0000
+++ b/lisp/ChangeLog    2013-08-05 06:49:37 +0000
@@ -1,3 +1,8 @@
+2013-08-05  Glenn Morris  <address@hidden>
+
+       * calendar/calendar.el (calendar-generate-month):
+       Fix for calendar-column-width != 1 + calendar-day-digit-width.
+
 2013-08-05  Juanma Barranquero  <address@hidden>
 
        * desktop.el (desktop-clear): Use new name of sort predicate.

=== modified file 'lisp/calendar/calendar.el'
--- a/lisp/calendar/calendar.el 2013-02-12 04:46:18 +0000
+++ b/lisp/calendar/calendar.el 2013-08-05 06:49:37 +0000
@@ -1544,15 +1544,16 @@
    (dotimes (i last)
      (setq day (1+ i))
      ;; TODO should numbers be left-justified, centered...?
-     (insert (format (format "%%%dd%%s" calendar-day-digit-width) day
-                     (make-string
-                      (- calendar-column-width calendar-day-digit-width) ?\s)))
-     ;; 'date property prevents intermonth text confusing re-searches.
-     ;; (Tried intangible, it did not really work.)
-     (set-text-properties
-      (- (point) (1+ calendar-day-digit-width)) (1- (point))
-      `(mouse-face highlight help-echo ,(eval calendar-date-echo-text)
-                   date t))
+     (insert (propertize
+              (format (format "%%%dd" calendar-day-digit-width) day)
+              'mouse-face 'highlight
+              'help-echo (eval calendar-date-echo-text)
+              ;; 'date property prevents intermonth text confusing
+              ;; re-searches.  (Tried intangible, it did not
+              ;; really work.)
+              'date t)
+             (make-string
+              (- calendar-column-width calendar-day-digit-width) ?\s))
      (when (and (zerop (mod (+ day blank-days) 7))
                 (/= day last))
        (calendar-ensure-newline)