diff options
| author | Gerd Moellmann | 1999-10-17 16:30:39 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 1999-10-17 16:30:39 +0000 |
| commit | bf2083f9c7952a1d4aeac1b2d7df718ba156287a (patch) | |
| tree | ddaa340d08b92d442246b956994a8ce1b900a574 | |
| parent | 463cac2d1f5900abff072f928782f66a22bfc79a (diff) | |
| download | emacs-bf2083f9c7952a1d4aeac1b2d7df718ba156287a.tar.gz emacs-bf2083f9c7952a1d4aeac1b2d7df718ba156287a.zip | |
(minibuffer-prompt-end): Return the position
after the prompt, not the position of that last character
of the prompt.
| -rw-r--r-- | lisp/simple.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 6bdd8a4bc89..7482bf2cfef 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -860,12 +860,8 @@ Return 0 if current buffer is not a mini-buffer." | |||
| 860 | (defun minibuffer-prompt-end () | 860 | (defun minibuffer-prompt-end () |
| 861 | "Return the buffer position of the end of the minibuffer prompt. | 861 | "Return the buffer position of the end of the minibuffer prompt. |
| 862 | Return 0 if current buffer is not a mini-buffer." | 862 | Return 0 if current buffer is not a mini-buffer." |
| 863 | ;; Return the width of everything before the field at the end of | 863 | (field-beginning (point-max))) |
| 864 | ;; the buffer; this should be 0 for normal buffers. | 864 | |
| 865 | ;; XXX This definition doesn't seem very useful; why does one care | ||
| 866 | ;; about the last character of the prompt? The beginning of the | ||
| 867 | ;; user-text seems more useful (e.g., this value + 1). | ||
| 868 | (1- (field-beginning (point-max)))) | ||
| 869 | 865 | ||
| 870 | ;Put this on C-x u, so we can force that rather than C-_ into startup msg | 866 | ;Put this on C-x u, so we can force that rather than C-_ into startup msg |
| 871 | (defalias 'advertised-undo 'undo) | 867 | (defalias 'advertised-undo 'undo) |