Mercurial > emacs
changeset 25400:c75839c09c84
(kill-word): Undo previous change.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 25 Aug 1999 21:12:15 +0000 |
| parents | 307d2eb37259 |
| children | 3f78f1fed4e0 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 4 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Wed Aug 25 16:19:01 1999 +0000 +++ b/lisp/simple.el Wed Aug 25 21:12:15 1999 +0000 @@ -794,7 +794,9 @@ (let ((print-level nil)) (prin1-to-string elt)) elt)) - (goto-char (minibuffer-prompt-end))))) + (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." @@ -2847,12 +2849,7 @@ "Kill characters forward until encountering the end of a word. With argument, do this that many times." (interactive "*p") - (let ((start (point)) - (end (progn (forward-word arg) (point))) - (prompt-end (minibuffer-prompt-end))) - (when (< end prompt-end) - (goto-char (setq end prompt-end))) - (kill-region start end))) + (kill-region (point) (progn (forward-word arg) (point)))) (defun backward-kill-word (arg) "Kill characters backward until encountering the end of a word.