From 98f362b1b7c0c5956bd38602acc573b04446f23f Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Fri, 8 Feb 2013 17:13:31 +0100 Subject: [PATCH] org.el (org-read-date-minibuffer-local-map): Use "." to go to today's date * org.el (org-read-date-minibuffer-local-map): Use "." to go to today's date. Unless I'm crazy, there is a regression here, but I'm unable to find when the regression started for now. --- lisp/org.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/org.el b/lisp/org.el index 001e139f4..c29ae6be7 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -15602,6 +15602,9 @@ So these are more for recording a certain time/date." (defvar org-read-date-minibuffer-local-map (let ((map (make-sparse-keymap))) (set-keymap-parent map minibuffer-local-map) + (org-defkey map (kbd ".") + (lambda () (interactive) + (org-eval-in-calendar '(calendar-goto-today)))) (org-defkey map [(meta shift left)] (lambda () (interactive) (org-eval-in-calendar '(calendar-backward-month 1)))) -- 2.11.4.GIT