# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1147226832 0
# Node ID 09d3b5632463900378048887a7065f654cba984b
# Parent  1121231ccc238775202c3f2005891156b54c6489
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-272

(comint-insert-input): Remove redundant calls to setq and goto-char

diff -r 1121231ccc23 -r 09d3b5632463 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed May 10 01:58:37 2006 +0000
+++ b/lisp/ChangeLog	Wed May 10 02:07:12 2006 +0000
@@ -1,3 +1,8 @@
+2006-05-09  Miles Bader  <miles@gnu.org>
+
+	* comint.el (comint-insert-input): Remove redundant calls to setq
+	and goto-char.
+
 2006-05-10  Nick Roberts  <nickrob@snap.net.nz>
 
 	* comint.el (comint-insert-input): Make it work when
diff -r 1121231ccc23 -r 09d3b5632463 lisp/comint.el
--- a/lisp/comint.el	Wed May 10 01:58:37 2006 +0000
+++ b/lisp/comint.el	Wed May 10 02:07:12 2006 +0000
@@ -817,9 +817,7 @@
 	  (let* ((keys (this-command-keys))
 		 (last-key (and (vectorp keys) (aref keys (1- (length keys)))))
 		 (fun (and last-key (lookup-key global-map (vector last-key)))))
-	    (goto-char pos)
 	    (and fun (call-interactively fun)))
-	(setq pos (point))
 	;; There's previous input at POS, insert it at the end of the buffer.
 	(goto-char (point-max))
 	;; First delete any old unsent input at the end
@@ -829,6 +827,7 @@
 	 (point))
 	;; Insert the input at point
 	(insert (field-string-no-properties pos))))))
+
 
 ;; Input history processing in a buffer
 ;; ===========================================================================