1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00

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

Don't use kill-line.
This commit is contained in:
Kim F. Storm 2007-04-22 10:37:08 +00:00
parent 5477ee28d7
commit 79ef576382

View File

@ -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