From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Ingo Lohmar Newsgroups: gmane.emacs.devel Subject: And here's the patch, sorry.. Date: Sat, 21 Feb 2015 15:57:40 +0100 Message-ID: <87y4nrwbvf.fsf@acer.localhost.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1424530679 16665 80.91.229.3 (21 Feb 2015 14:57:59 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 21 Feb 2015 14:57:59 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sat Feb 21 15:57:55 2015 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1YPBV9-0001bs-Iz for ged-emacs-devel@m.gmane.org; Sat, 21 Feb 2015 15:57:51 +0100 Original-Received: from localhost ([::1]:36370 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YPBV8-0004QS-TY for ged-emacs-devel@m.gmane.org; Sat, 21 Feb 2015 09:57:50 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:39446) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YPBV4-0004PL-U0 for emacs-devel@gnu.org; Sat, 21 Feb 2015 09:57:48 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YPBV1-0003qm-Li for emacs-devel@gnu.org; Sat, 21 Feb 2015 09:57:46 -0500 Original-Received: from mail-wg0-x22b.google.com ([2a00:1450:400c:c00::22b]:63511) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YPBV1-0003qh-Ei for emacs-devel@gnu.org; Sat, 21 Feb 2015 09:57:43 -0500 Original-Received: by mail-wg0-f43.google.com with SMTP id z12so18152470wgg.2 for ; Sat, 21 Feb 2015 06:57:42 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=from:to:subject:user-agent:date:message-id:mime-version :content-type; bh=DXkSsc5lKqb0QHJbneHvRFCpKetVM5Hr+3qlxb8q818=; b=1HafJJLprls0S1/UIv37LvQYX9YYtTCvxd2Y4Dtu3yA4311N6PfPrQzLH67mUKjZQ/ r5vhSu5LCF2dA3Q67374w6aImqUKjrmzgPUncwCOaAeA08jeZN8oSy+xUCXiY+FR5GUO /uA20K945gt+3Xtp8/Zz0s+p6lJvmr/tN80AF8oYIkaoAcX5rJLVR4axDKaSvEp8LqWL Tw/cECNTvQNH/XNtkABpU0iTk5BzrO2ipbzRHCA3ETlaLy9fiuit60oiepmh5nT6oG9H aEvpf/Ec3CRgnODGRdbIwMW4yRB3i+lWnezwTDPNCWBtsOyEyz0fUeqCfw1HBIuHARqF AyrA== X-Received: by 10.180.83.129 with SMTP id q1mr4619302wiy.46.1424530662600; Sat, 21 Feb 2015 06:57:42 -0800 (PST) Original-Received: from localhost (koln-d9bdc8db.pool.mediaWays.net. [217.189.200.219]) by mx.google.com with ESMTPSA id uo6sm46940213wjc.49.2015.02.21.06.57.41 for (version=TLSv1.2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Sat, 21 Feb 2015 06:57:41 -0800 (PST) User-Agent: Notmuch/0.19+6~g81b5907 (http://notmuchmail.org) Emacs/25.0.50.1 (x86_64-unknown-linux-gnu) X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-Received-From: 2a00:1450:400c:c00::22b X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:183357 Archived-At: ChangeLog | 5 +++++ lisp/calendar/calendar.el | 12 +++++++++++- diff --git a/ChangeLog b/ChangeLog index 41bff0e..a36e180 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2015-02-21 Ingo Lohmar + + * lisp/calendar/calendar.el (calendar-generate-month): New + variable calendar-weekend-days to fontify day headers correctly. + 2015-02-21 Paul Eggert Merge from gnulib diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index e42a010..5e8e9f1 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -190,6 +190,16 @@ movement commands will not work correctly." (calendar-redraw)) :group 'calendar) +(defcustom calendar-weekend-days '(0 6) + "Days of the week considered weekend days. +0 means Sunday, 1 means Monday, and so on. + +Determines which day headers are fontified with +`calendar-weekend-header'." + :type '(repeat integer) + :version "24.5" + :group 'calendar) + (defcustom calendar-view-diary-initially-flag nil "Non-nil means display current date's diary entries on entry to calendar. The diary is displayed in another window when the calendar is first displayed, @@ -1453,7 +1463,7 @@ line." (insert (truncate-string-to-width (propertize (calendar-day-name j 'header t) - 'font-lock-face (if (memq j '(0 6)) + 'font-lock-face (if (memq j calendar-weekend-days) 'calendar-weekend-header 'calendar-weekday-header)) calendar-day-header-width nil ?\s)