Mercurial > emacs
changeset 75571:3111750977e3
Delete extra copy of `comint-copy-old-input' added in previous change to
this file.
| author | Romain Francoise <romain@orebokech.com> |
|---|---|
| date | Wed, 31 Jan 2007 13:20:52 +0000 |
| parents | c73074a0ea50 |
| children | 6d4a346af5e8 |
| files | lisp/ChangeLog lisp/comint.el |
| diffstat | 2 files changed, 5 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Jan 31 12:45:31 2007 +0000 +++ b/lisp/ChangeLog Wed Jan 31 13:20:52 2007 +0000 @@ -1,3 +1,8 @@ +2007-01-31 Romain Francoise <romain@orebokech.com> + + * comint.el: Delete extra copy of `comint-copy-old-input' added in + previous change to this file. + 2007-01-31 Jason Rumney <jasonr@gnu.org> * files.el (magic-mode-alist): Use image-mode-maybe rather than
--- a/lisp/comint.el Wed Jan 31 12:45:31 2007 +0000 +++ b/lisp/comint.el Wed Jan 31 13:20:52 2007 +0000 @@ -1920,17 +1920,6 @@ (goto-char (process-mark process)) (insert input)))) -(defun comint-copy-old-input () - "Insert after prompt old input at point as new input to be edited. -Calls `comint-get-old-input' to get old input." - (interactive) - (let ((input (funcall comint-get-old-input)) - (process (get-buffer-process (current-buffer)))) - (if (not process) - (error "Current buffer has no process") - (goto-char (process-mark process)) - (insert input)))) - (defun comint-skip-prompt () "Skip past the text matching regexp `comint-prompt-regexp'. If this takes us past the end of the current line, don't skip at all."