Make dot an alias for today in the date prompt.
This commit is contained in:
parent
e4871aa58b
commit
403485afd3
|
@ -1,5 +1,8 @@
|
|||
2008-05-02 Carsten Dominik <dominik@science.uva.nl>
|
||||
|
||||
* lisp/org.el (org-read-date-analyze): "." as an alias for "+0" in
|
||||
read date.
|
||||
|
||||
* lisp/org-clock.el (org-clock-save-markers-for-cut-and-paste):
|
||||
New function.
|
||||
|
||||
|
|
|
@ -4210,6 +4210,8 @@ a single letter, you use the abbreviation of day name, the date will be
|
|||
the nth such day. E.g.
|
||||
|
||||
@example
|
||||
+0 --> today
|
||||
. --> today
|
||||
+4d --> four days from today
|
||||
+4 --> same as above
|
||||
+2w --> two weeks from today
|
||||
|
|
|
@ -10241,6 +10241,9 @@ user."
|
|||
hour minute second wday pm h2 m2 tl wday1
|
||||
iso-year iso-weekday iso-week iso-year iso-date)
|
||||
|
||||
(when (string-match "\\`[ \t]*\\.[ \t]*\\'" ans)
|
||||
(setq ans "+0"))
|
||||
|
||||
(when (setq delta (org-read-date-get-relative ans (current-time) def))
|
||||
(setq ans (replace-match "" t t ans)
|
||||
deltan (car delta)
|
||||
|
|
Loading…
Reference in New Issue