Revision: emacs@sv.gnu.org/emacs--devo--0--patch-272

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

2 files changed, 6 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 50fb393e245..4b3f30e9692 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/comint.el b/lisp/comint.el
index 940643b24cc..c7e5b3bdddd 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -817,9 +817,7 @@ buffer.  The hook `comint-exec-hook' is run after each exec."
           (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 @@ buffer.  The hook `comint-exec-hook' is run after each exec."
          (point))
         ;; Insert the input at point
         (insert (field-string-no-properties pos))))))
+
 
 ;; Input history processing in a buffer
 ;; ===========================================================================