mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-12 06:09:54 +00:00
Clean up test left over.
This commit is contained in:
parent
3df72679bb
commit
76b2943545
23
lisp/org.el
23
lisp/org.el
|
@ -15321,29 +15321,6 @@ user."
|
||||||
(list second minute hour day month year)))
|
(list second minute hour day month year)))
|
||||||
|
|
||||||
(defvar parse-time-weekdays)
|
(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)
|
(defun org-read-date-get-relative (s today default)
|
||||||
"Check string S for special relative date string.
|
"Check string S for special relative date string.
|
||||||
TODAY and DEFAULT are internal times, for today and for a default.
|
TODAY and DEFAULT are internal times, for today and for a default.
|
||||||
|
|
Loading…
Reference in a new issue