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>
This commit is contained in:
Kyle Meyer 2015-10-23 11:15:44 -04:00
parent 4e864643bd
commit 8c763ab08c
1 changed files with 3 additions and 1 deletions

View File

@ -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-.")