+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
(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
(point))
;; Insert the input at point
(insert (field-string-no-properties pos))))))
+
\f
;; Input history processing in a buffer
;; ===========================================================================