# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 935615535 0
# Node ID c75839c09c844e30519226c6188d973a283cfb17
# Parent  307d2eb37259c3018795b684e9afa3d27928112a
(kill-word): Undo previous change.

diff -r 307d2eb37259 -r c75839c09c84 lisp/simple.el
--- 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.