org.el (org-read-date-minibuffer-local-map): Check if we are at the beginning of...
authorBastien Guerry <bzg@altern.org>
Wed, 24 Apr 2013 09:36:22 +0000 (11:36 +0200)
committerBastien Guerry <bzg@altern.org>
Wed, 24 Apr 2013 09:36:22 +0000 (11:36 +0200)
* 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

index 0d88654..5e5a07b 100644 (file)
@@ -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))))