# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1177238228 0
# Node ID ba8b19b89247151c32376e62af96e70e6cab8c4b
# Parent  5341224d266e4663254311660cd24905a130b5e8
(ido-kill-buffer-at-head, ido-delete-file-at-head):
Don't use kill-line.

diff -r 5341224d266e -r ba8b19b89247 lisp/ido.el
--- a/lisp/ido.el	Sun Apr 22 10:36:45 2007 +0000
+++ b/lisp/ido.el	Sun Apr 22 10:37:08 2007 +0000
@@ -3817,7 +3817,7 @@
 If cursor is not at the end of the user input, delete to end of input."
   (interactive)
   (if (not (eobp))
-      (kill-line)
+      (delete-region (point) (line-end-position))
     (let ((enable-recursive-minibuffers t)
 	  (buf (ido-name (car ido-matches))))
       (when buf
@@ -3835,7 +3835,7 @@
 If cursor is not at the end of the user input, delete to end of input."
   (interactive)
   (if (not (eobp))
-      (kill-line)
+      (delete-region (point) (line-end-position))
     (let ((enable-recursive-minibuffers t)
 	  (file (ido-name (car ido-matches))))
       (if file