From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 23 Jul 1999 10:59:35 +0000 (+0000)
Subject: (next-history-element): Set point to the end of the
X-Git-Tag: emacs-pretest-21.0.90~7395
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fd6bc60fe4a2e8e8bca8d357abb1f543ed4c2fe6;p=emacs.git

(next-history-element): Set point to the end of the
prompt if minibuffer-prompt-in-buffer.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 58e8f5aff42..a187ebbf8ea 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -824,7 +824,9 @@ An uppercase letter in REGEXP makes the search case-sensitive."
 	     (let ((print-level nil))
 	       (prin1-to-string elt))
 	   elt))
-	(goto-char (point-min)))))
+	(if (boundp 'minibuffer-prompt-in-buffer)
+	    (goto-char (minibuffer-prompt-width))
+	  (goto-char (point-min))))))
 
 (defun previous-history-element (n)
   "Inserts the previous element of the minibuffer history into the minibuffer."