Add missing calendar-dlet* (Bug#31267)

* lisp/calendar/calendar.el (calendar-generate-month): Use
calendar-dlet* around evaluation of calendar-date-echo-text.
This commit is contained in:
Noam Postavsky
2018-04-26 07:36:50 -04:00
parent 66dbb787a2
commit 1d75604ead

View File

@@ -1517,7 +1517,8 @@ line."
(insert (propertize
(format (format "%%%dd" calendar-day-digit-width) day)
'mouse-face 'highlight
'help-echo (eval calendar-date-echo-text)
'help-echo (calendar-dlet* ((day day) (month month) (year year))
(eval calendar-date-echo-text))
;; 'date property prevents intermonth text confusing re-searches.
;; (Tried intangible, it did not really work.)
'date t)