diff options
| author | Kim F. Storm <storm@cua.dk> | 2007-04-22 10:37:08 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2007-04-22 10:37:08 +0000 |
| commit | 79ef576382716cdef42ddb2212460d9de53f032e (patch) | |
| tree | f173818a37e3aeb7472ea1dfa889b70c61f7579b /lisp/ido.el | |
| parent | 5477ee28d7ab69e38615fb92037504027308bf80 (diff) | |
| download | emacs-79ef576382716cdef42ddb2212460d9de53f032e.tar.gz | |
(ido-kill-buffer-at-head, ido-delete-file-at-head):
Don't use kill-line.
Diffstat (limited to 'lisp/ido.el')
| -rw-r--r-- | lisp/ido.el | 4 |
1 files changed, 2 insertions, 2 deletions
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 |