From ce1f368013ff98c0421f58dbe8c9af0d046c8a4f Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Fri, 23 Mar 2012 22:43:56 +0100 Subject: [PATCH] org.el (org-read-date): Don't mention `parse-time-weekdays' and `parse-time-months' in the docstring. * org.el (org-read-date): Don't mention `parse-time-weekdays' and `parse-time-months' in the docstring. This problem has been reported by Michael Heerdegen -- see Emacs bug#11042 against 24.0.94. --- lisp/org.el | 26 +++++++++++++++++++++++--- 1 file changed, 23 insertions(+), 3 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 5212d66b3..2aa7df45d 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -14929,9 +14929,7 @@ plus or minus, it is relative to the date in DEFAULT-TIME. E.g. +2w --> two weeks from today ++5 --> five days from default date -The function understands only English month and weekday abbreviations, -but this can be configured with the variables `parse-time-months' and -`parse-time-weekdays'. +The function understands only English month and weekday abbreviations. While prompting, a calendar is popped up - you can also select the date with the mouse (button 1). The calendar shows a period of three @@ -15324,6 +15322,28 @@ user." (defvar parse-time-weekdays) +;; (defcustom org-parse-time-weekdays parse-time-weekdays +;; "Alist of day names and their position in the week." +;; :group 'org-time +;; :type '(alist :key-type (string :tag "Day name") +;; :value-type (integer :tag "Position"))) + +(setq parse-time-weekdays '(("sun" . 0) + ("mon" . 1) + ("tue" . 2) + ("wed" . 3) + ("thu" . 4) + ("fri" . 5) + ("sat" . 6) + ("sunday" . 0) + ("monday" . 1) + ("tuesday" . 2) + ("wednesday" . 3) + ("thursday" . 4) + ("lundi" . 1) + ) + ) + (defun org-read-date-get-relative (s today default) "Check string S for special relative date string. TODAY and DEFAULT are internal times, for today and for a default. -- 2.11.4.GIT