From fd6bc60fe4a2e8e8bca8d357abb1f543ed4c2fe6 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 23 Jul 1999 10:59:35 +0000 Subject: [PATCH] (next-history-element): Set point to the end of the prompt if minibuffer-prompt-in-buffer. --- lisp/simple.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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." -- 2.39.5