From 253b65c0912448baeadb90d7fb2aee9a3d03ba9f Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Wed, 24 Apr 2013 11:36:22 +0200 Subject: [PATCH] org.el (org-read-date-minibuffer-local-map): Check if we are at the beginning of the prompt, not if we are after a whitespace * org.el (org-read-date-minibuffer-local-map): Check if we are at the beginning of the prompt, not if we are after a whitespace. Bind C-. to `calendar-goto-today'. --- lisp/org.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/org.el b/lisp/org.el index 0d8865445..5e5a07b74 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -16074,9 +16074,13 @@ So these are more for recording a certain time/date." (set-keymap-parent map minibuffer-local-map) (org-defkey map (kbd ".") (lambda () (interactive) - (if (= (char-before) 32) + ;; Are we at the beginning of the prompt? + (if (looking-back "^[^:]+: ") (org-eval-in-calendar '(calendar-goto-today)) (insert ".")))) + (org-defkey map (kbd "C-.") + (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