Mercurial > emacs
comparison lisp/simple.el @ 25490:af3e44ec3b8c
(next-history-element): Use minibuffer-prompt-end once
again. Remove test for minibuffer-prompt-in-buffer.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 02 Sep 1999 20:35:50 +0000 |
| parents | cd1649a27c08 |
| children | 2b96c6e05f23 |
comparison
equal
deleted
inserted
replaced
| 25489:cd3aa5527b4f | 25490:af3e44ec3b8c |
|---|---|
| 792 (if (and (eq minibuffer-history-sexp-flag (minibuffer-depth)) | 792 (if (and (eq minibuffer-history-sexp-flag (minibuffer-depth)) |
| 793 (not minibuffer-returned-to-present)) | 793 (not minibuffer-returned-to-present)) |
| 794 (let ((print-level nil)) | 794 (let ((print-level nil)) |
| 795 (prin1-to-string elt)) | 795 (prin1-to-string elt)) |
| 796 elt)) | 796 elt)) |
| 797 (if (boundp 'minibuffer-prompt-in-buffer) | 797 (goto-char (minibuffer-prompt-end))))) |
| 798 (goto-char (minibuffer-prompt-width)) | |
| 799 (goto-char (point-min)))))) | |
| 800 | 798 |
| 801 (defun previous-history-element (n) | 799 (defun previous-history-element (n) |
| 802 "Inserts the previous element of the minibuffer history into the minibuffer." | 800 "Inserts the previous element of the minibuffer history into the minibuffer." |
| 803 (interactive "p") | 801 (interactive "p") |
| 804 (next-history-element (- n))) | 802 (next-history-element (- n))) |