diff options
author | Kyle Meyer <kyle@kyleam.com> | 2015-10-23 11:15:44 -0400 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2015-10-23 11:15:44 -0400 |
commit | 8c763ab08c1ba8a161a7fd094aafb2aea352c099 (patch) | |
tree | 4798b8132ff3e9dbaa0699ab5670ad7eaf2bc6e8 | |
parent | 4e864643bdb6bba3e000ea51fb746a26e40b1f77 (diff) | |
download | org-mode-8c763ab08c1ba8a161a7fd094aafb2aea352c099.tar.gz |
Restore behavior of '.' in org-read-date
* lisp/org.el (org-read-date-minibuffer-local-map): Fix period behavior
broken by e802936.
Reported-by: Matt Lundin <mdl@imapmail.org>
<http://permalink.gmane.org/gmane.emacs.orgmode/102071>
-rwxr-xr-x | lisp/org.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el index fda6ffd..8e2bf79 100755 --- a/lisp/org.el +++ b/lisp/org.el @@ -16770,7 +16770,9 @@ So these are more for recording a certain time/date." (org-defkey map (kbd ".") (lambda () (interactive) ;; Are we at the beginning of the prompt? - (if (org-looking-back "^[^:]+: " (line-beginning-position)) + (if (org-looking-back "^[^:]+: " + (let ((inhibit-field-text-motion t)) + (line-beginning-position))) (org-eval-in-calendar '(calendar-goto-today)) (insert ".")))) (org-defkey map (kbd "C-.") |