summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-04-24 10:05:36 +0200
committerBastien Guerry <bzg@altern.org>2013-04-24 10:05:36 +0200
commit240d645dbb2d7d8968162d9d36058ea406ad4b67 (patch)
tree5617b28665b26d97718b34874ec916116032dbff
parent0e438a9621ee93834287a8ccd074388be88dfd5f (diff)
downloadorg-mode-240d645dbb2d7d8968162d9d36058ea406ad4b67.tar.gz
org.el (org-read-date-minibuffer-local-map): Call `calendar-goto-today' only if there is a space before point in the minibuffer prompt
* 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.
-rw-r--r--lisp/org.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el
index 849e34c..0d88654 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -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))))