Turn off replacing of disputed keys for the read-date keymap

* lisp/org.el (org-read-date-minibuffer-local-map): Don't replace disputed
keys when defining this keymap.
(org-read-date: Remove unnecessary binding of `org-replace-disputed-keys'.

This original fix did not work, thanks to Miro Bezjak for showing what
the proper fix should be.
This commit is contained in:
Carsten Dominik 2013-09-08 07:33:18 +02:00
parent 36d9635636
commit e8023dde58
1 changed files with 2 additions and 2 deletions

View File

@ -16120,7 +16120,8 @@ So these are more for recording a certain time/date."
(defvar org-read-date-inactive)
(defvar org-read-date-minibuffer-local-map
(let ((map (make-sparse-keymap)))
(let* ((org-replace-disputed-keys nil)
((map (make-sparse-keymap))))
(set-keymap-parent map minibuffer-local-map)
(org-defkey map (kbd ".")
(lambda () (interactive)
@ -16280,7 +16281,6 @@ user."
(calendar-current-date))))
(org-eval-in-calendar nil t)
(let* ((old-map (current-local-map))
(org-replace-disputed-keys nil)
(map (copy-keymap calendar-mode-map))
(minibuffer-local-map
(copy-keymap org-read-date-minibuffer-local-map)))