(minibuffer-avoid-prompt): New function.

diff --git a/lisp/simple.el b/lisp/simple.el
index 155f8468d5aacdb18512a9207119ad5e8c141c5f..78f5e8044a21a8be3362b633d2240d7df4ba1acf 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -686,6 +686,10 @@ in this use of the minibuffer.")
 (defun minibuffer-history-initialize ()
   (setq minibuffer-text-before-history nil))
 
+(defun minibuffer-avoid-prompt (new old)
+  "A point-motion hook for the minibuffer, that moves point out of the prompt."
+  (constrain-to-field nil (point-max)))
+
 (defcustom minibuffer-history-case-insensitive-variables nil
   "*Minibuffer history variables for which matching should ignore case.
 If a history variable is a member of this list, then the