From mboxrd@z Thu Jan 1 00:00:00 1970 From: Achim Gratz Subject: [PATCH] silence byte compiler warnings about european-calendar-style Date: Mon, 13 Sep 2010 20:25:39 +0200 Message-ID: <87aanlzejg.fsf_-_@Rainer.invalid> References: <87aantxqae.fsf@Rainer.invalid> <87iq2g8bir.fsf@Rainer.invalid> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from [140.186.70.92] (port=56138 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OvDj4-0003tq-1b for emacs-orgmode@gnu.org; Mon, 13 Sep 2010 14:25:59 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OvDj2-00070K-FG for emacs-orgmode@gnu.org; Mon, 13 Sep 2010 14:25:57 -0400 Received: from lo.gmane.org ([80.91.229.12]:44022) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OvDj2-000709-5d for emacs-orgmode@gnu.org; Mon, 13 Sep 2010 14:25:56 -0400 Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1OvDiy-0005K8-75 for emacs-orgmode@gnu.org; Mon, 13 Sep 2010 20:25:52 +0200 Received: from p57aad46f.dip.t-dialin.net ([87.170.212.111]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 13 Sep 2010 20:25:52 +0200 Received: from Stromeko by p57aad46f.dip.t-dialin.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 13 Sep 2010 20:25:52 +0200 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org I've investigated further and defvaralias doesn't silence the warnings, but "with-no-warnings" does. --- lisp/org-agenda.el | 3 ++- lisp/org.el | 7 ++++--- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 32c65db..9f94fa6 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -7279,7 +7279,8 @@ the resulting entry will not be shown. When TEXT is empty, switch to (let ((calendar-date-display-form (if (if (boundp 'calendar-date-style) (eq calendar-date-style 'european) - (org-bound-and-true-p european-calendar-style)) ; Emacs 22 + (with-no-warnings ;; european-calendar-style is obsolete as of version 23.1 + (org-bound-and-true-p european-calendar-style))) ; Emacs 22 '(day " " month " " year) '(month " " day " " year)))) diff --git a/lisp/org.el b/lisp/org.el index 668d469..70dd482 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -14604,9 +14604,10 @@ user function argument order change dependent on argument order." (list arg2 arg1 arg3)) ((eq calendar-date-style 'iso) (list arg2 arg3 arg1))) - (if (org-bound-and-true-p european-calendar-style) - (list arg2 arg1 arg3) - (list arg1 arg2 arg3)))) + (with-no-warnings ;; european-calendar-style is obsolete as of version 23.1 + (if (org-bound-and-true-p european-calendar-style) + (list arg2 arg1 arg3) + (list arg1 arg2 arg3))))) (defun org-eval-in-calendar (form &optional keepdate) "Eval FORM in the calendar window and return to current window. -- 1.7.1 Achim. -- +<[Q+ Matrix-12 WAVE#46+305 Neuron microQkb Andromeda XTk Blofeld]>+ SD adaptation for Waldorf Blofeld V1.15B11: http://Synth.Stromeko.net/Downloads.html#WaldorfSDada