diff options
| author | Gerd Moellmann | 1999-07-23 10:59:35 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 1999-07-23 10:59:35 +0000 |
| commit | fd6bc60fe4a2e8e8bca8d357abb1f543ed4c2fe6 (patch) | |
| tree | adc12983ddc9e8267ff00aac1e938bed604322c7 /lisp | |
| parent | f56f1421df2174761a1804bcf92206c89e82de72 (diff) | |
| download | emacs-fd6bc60fe4a2e8e8bca8d357abb1f543ed4c2fe6.tar.gz emacs-fd6bc60fe4a2e8e8bca8d357abb1f543ed4c2fe6.zip | |
(next-history-element): Set point to the end of the
prompt if minibuffer-prompt-in-buffer.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/simple.el | 4 |
1 files changed, 3 insertions, 1 deletions
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." | |||
| 824 | (let ((print-level nil)) | 824 | (let ((print-level nil)) |
| 825 | (prin1-to-string elt)) | 825 | (prin1-to-string elt)) |
| 826 | elt)) | 826 | elt)) |
| 827 | (goto-char (point-min))))) | 827 | (if (boundp 'minibuffer-prompt-in-buffer) |
| 828 | (goto-char (minibuffer-prompt-width)) | ||
| 829 | (goto-char (point-min)))))) | ||
| 828 | 830 | ||
| 829 | (defun previous-history-element (n) | 831 | (defun previous-history-element (n) |
| 830 | "Inserts the previous element of the minibuffer history into the minibuffer." | 832 | "Inserts the previous element of the minibuffer history into the minibuffer." |