(redraw-calendar): Preserve point. Reported by Matt Hodges

[gnu-emacs] / lisp / ido.el

diff --git a/lisp/ido.el b/lisp/ido.el
index 389ddb0b9a1b93634fc56c93bfb08db89fa8961e..86a88d0d491d3b73524f8e4a50e7f042ea1ce9ad 100644 (file)
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -2280,6 +2280,9 @@ If no buffer or file exactly matching the prompt exists, maybe create a new one.
 (defun ido-fallback-command ()
   "Fallback to non-ido version of current command."
   (interactive)
+  (let ((i (length ido-text)))
+    (while (> i 0)
+      (push (aref ido-text (setq i (1- i))) unread-command-events)))
   (setq ido-exit 'fallback)
   (exit-minibuffer))