Mercurial > emacs
changeset 70553:09d3b5632463
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-272
(comint-insert-input): Remove redundant calls to setq and goto-char
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 10 May 2006 02:07:12 +0000 |
| parents | 1121231ccc23 |
| children | e1a064810f6f 1321f6cfb389 |
| files | lisp/ChangeLog lisp/comint.el |
| diffstat | 2 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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 ;; ===========================================================================