org.el (org-read-date-minibuffer-local-map): Call `calendar-goto-today' only if there...
authorBastien Guerry <bzg@altern.org>
Wed, 24 Apr 2013 08:05:36 +0000 (10:05 +0200)
committerBastien Guerry <bzg@altern.org>
Wed, 24 Apr 2013 08:05:36 +0000 (10:05 +0200)
* org.el (org-read-date-minibuffer-local-map): Call
`calendar-goto-today' only if there is a space before point in
the minibuffer prompt.

Thanks to Michael Brand and others who asked for this regression to be fixed.

lisp/org.el

index 849e34c..0d88654 100644 (file)
@@ -16074,7 +16074,9 @@ So these are more for recording a certain time/date."
     (set-keymap-parent map minibuffer-local-map)
     (org-defkey map (kbd ".")
                 (lambda () (interactive)
-                  (org-eval-in-calendar '(calendar-goto-today))))
+                 (if (= (char-before) 32)
+                     (org-eval-in-calendar '(calendar-goto-today))
+                   (insert "."))))
     (org-defkey map [(meta shift left)]
                 (lambda () (interactive)
                   (org-eval-in-calendar '(calendar-backward-month 1))))