(minibuffer-avoid-prompt): New function.

1 files changed, 4 insertions, 0 deletions

diff --git a/lisp/simple.el b/lisp/simple.el
index 155f8468d5a..78f5e8044a2 100644
--- 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