(ido-kill-buffer-at-head, ido-delete-file-at-head):

Don't use kill-line.

diff --git a/lisp/ido.el b/lisp/ido.el
index 80ed82c258373ad1f5f876bf9e95a0d24f030b29..5a7be3e5ae6bef2790aac0931af184c6923dc4d5 100644 (file)
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -3817,7 +3817,7 @@ for first matching file."
 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."
 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