mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source 
(comint-insert-input): Remove redundant calls to setq and goto-char
This commit is contained in:
Miles Bader 2006-05-10 02:07:12 +00:00
parent 1627b55f61
commit 9a4d87c8d5
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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

3
lisp/comint.el
View File

@ -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
;; ===========================================================================