[Emacs-diffs] Changes to emacs/lisp/comint.el,v

[Romain Francoise]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Romain Francoise <rfrancoise>   07/01/31 13:20:52

Index: comint.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/comint.el,v
retrieving revision 1.356
retrieving revision 1.357
diff -u -b -r1.356 -r1.357
--- comint.el   31 Jan 2007 05:51:20 -0000      1.356
+++ comint.el   31 Jan 2007 13:20:52 -0000      1.357
@@ -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."