From 403485afd304b5065dda29fbf739a0e68906fe53 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Fri, 2 May 2008 18:00:20 +0200 Subject: [PATCH] Make dot an alias for today in the date prompt. --- ChangeLog | 3 +++ doc/org.texi | 2 ++ lisp/org.el | 3 +++ 3 files changed, 8 insertions(+) diff --git a/ChangeLog b/ChangeLog index 6dc6076d9..15c960243 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ 2008-05-02 Carsten Dominik + * 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. diff --git a/doc/org.texi b/doc/org.texi index dd8b6e239..6712f55e3 100644 --- a/doc/org.texi +++ b/doc/org.texi @@ -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 diff --git a/lisp/org.el b/lisp/org.el index a80643a91..acb9db0ec 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -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) -- 2.11.4.GIT