mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

* lisp/calendar/calendar.el (calendar-generate-month): Apply weekend face

Browse Source 
to the right days; fixes 2013-08-06 change.

Fixes: debbugs:17028
This commit is contained in:
Glenn Morris 2014-03-17 09:04:32 -07:00
parent 8273986b5a
commit 61debe4a9c
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2014-03-17 Glenn Morris <rgm@gnu.org>
* calendar/calendar.el (calendar-generate-month): Apply weekend
face to the right days; fixes 2013-08-06 change. (Bug#17028)
2014-03-17 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-action-out-of-band): Read pending output.

9
lisp/calendar/calendar.el
View File

@ -1546,7 +1546,8 @@ line."
(last (calendar-last-day-of-month month year))
(trunc (min calendar-intermonth-spacing
(1- calendar-left-margin)))
(day 1))
(day 1)
j)
(goto-char (point-min))
(calendar-move-to-column indent)
(insert
@ -1556,11 +1557,11 @@ line."
(calendar-insert-at-column indent calendar-intermonth-header trunc)
;; Use the first N characters of each day to head the columns.
(dotimes (i 7)
(setq j (mod (+ calendar-week-start-day i) 7))
(insert
(truncate-string-to-width
(propertize (calendar-day-name (mod (+ calendar-week-start-day i) 7)
'header t)
'font-lock-face (if (memq i '(0 6))
(propertize (calendar-day-name j 'header t)
'font-lock-face (if (memq j '(0 6))
'calendar-weekend-header
'calendar-weekday-header))
calendar-day-header-width nil ?\s)