diff options
| author | Kim F. Storm | 2007-04-22 10:37:08 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2007-04-22 10:37:08 +0000 |
| commit | 79ef576382716cdef42ddb2212460d9de53f032e (patch) | |
| tree | f173818a37e3aeb7472ea1dfa889b70c61f7579b | |
| parent | 5477ee28d7ab69e38615fb92037504027308bf80 (diff) | |
| download | emacs-79ef576382716cdef42ddb2212460d9de53f032e.tar.gz emacs-79ef576382716cdef42ddb2212460d9de53f032e.zip | |
(ido-kill-buffer-at-head, ido-delete-file-at-head):
Don't use kill-line.
| -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." | |||
| 3817 | If cursor is not at the end of the user input, delete to end of input." | 3817 | If cursor is not at the end of the user input, delete to end of input." |
| 3818 | (interactive) | 3818 | (interactive) |
| 3819 | (if (not (eobp)) | 3819 | (if (not (eobp)) |
| 3820 | (kill-line) | 3820 | (delete-region (point) (line-end-position)) |
| 3821 | (let ((enable-recursive-minibuffers t) | 3821 | (let ((enable-recursive-minibuffers t) |
| 3822 | (buf (ido-name (car ido-matches)))) | 3822 | (buf (ido-name (car ido-matches)))) |
| 3823 | (when buf | 3823 | (when buf |
| @@ -3835,7 +3835,7 @@ If cursor is not at the end of the user input, delete to end of input." | |||
| 3835 | If cursor is not at the end of the user input, delete to end of input." | 3835 | If cursor is not at the end of the user input, delete to end of input." |
| 3836 | (interactive) | 3836 | (interactive) |
| 3837 | (if (not (eobp)) | 3837 | (if (not (eobp)) |
| 3838 | (kill-line) | 3838 | (delete-region (point) (line-end-position)) |
| 3839 | (let ((enable-recursive-minibuffers t) | 3839 | (let ((enable-recursive-minibuffers t) |
| 3840 | (file (ido-name (car ido-matches)))) | 3840 | (file (ido-name (car ido-matches)))) |
| 3841 | (if file | 3841 | (if file |