diff options
| author | Noam Postavsky | 2018-04-26 07:36:50 -0400 |
|---|---|---|
| committer | Noam Postavsky | 2018-04-26 07:37:48 -0400 |
| commit | 1d75604eaded6a8482d28d57bc8e6a4d99d5caee (patch) | |
| tree | 92b9b8fa5269e20ae7750b05bd129aac17e381d3 | |
| parent | 66dbb787a22d4ae1d513a3ee27e22eed395f5676 (diff) | |
| download | emacs-1d75604eaded6a8482d28d57bc8e6a4d99d5caee.tar.gz emacs-1d75604eaded6a8482d28d57bc8e6a4d99d5caee.zip | |
Add missing calendar-dlet* (Bug#31267)
* lisp/calendar/calendar.el (calendar-generate-month): Use
calendar-dlet* around evaluation of calendar-date-echo-text.
| -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 16009df8245..71fb76ce213 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el | |||
| @@ -1517,7 +1517,8 @@ line." | |||
| 1517 | (insert (propertize | 1517 | (insert (propertize |
| 1518 | (format (format "%%%dd" calendar-day-digit-width) day) | 1518 | (format (format "%%%dd" calendar-day-digit-width) day) |
| 1519 | 'mouse-face 'highlight | 1519 | 'mouse-face 'highlight |
| 1520 | 'help-echo (eval calendar-date-echo-text) | 1520 | 'help-echo (calendar-dlet* ((day day) (month month) (year year)) |
| 1521 | (eval calendar-date-echo-text)) | ||
| 1521 | ;; 'date property prevents intermonth text confusing re-searches. | 1522 | ;; 'date property prevents intermonth text confusing re-searches. |
| 1522 | ;; (Tried intangible, it did not really work.) | 1523 | ;; (Tried intangible, it did not really work.) |
| 1523 | 'date t) | 1524 | 'date t) |