[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Orgmode] [PATCH] silence byte compiler warnings about european-calendar
From: |
Achim Gratz |
Subject: |
[Orgmode] [PATCH] silence byte compiler warnings about european-calendar-style |
Date: |
Mon, 13 Sep 2010 20:25:39 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/23.1 (gnu/linux) |
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