From: Kim F. Storm <storm@cua.dk>
Date: Sun, 22 Apr 2007 10:37:08 +0000 (+0000)
Subject: (ido-kill-buffer-at-head, ido-delete-file-at-head):
X-Git-Tag: emacs-pretest-22.0.99~86
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=79ef576382716cdef42ddb2212460d9de53f032e;p=emacs.git

(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 80ed82c2583..5a7be3e5ae6 100644
--- 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