diff options
| author | Miles Bader <miles@gnu.org> | 2006-05-10 02:07:12 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2006-05-10 02:07:12 +0000 |
| commit | 9a4d87c8d5f4503d67d5155eae6d543cc31f86d0 (patch) | |
| tree | 83f57bae66f7d3ba4da2fc77afa662040f15068b /lisp/comint.el | |
| parent | 1627b55f61f5284bfe26e9bf62d0ea2d61f576da (diff) | |
| download | emacs-9a4d87c8d5f4503d67d5155eae6d543cc31f86d0.tar.gz | |
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-272
(comint-insert-input): Remove redundant calls to setq and goto-char
Diffstat (limited to 'lisp/comint.el')
| -rw-r--r-- | lisp/comint.el | 3 |
1 files changed, 1 insertions, 2 deletions
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 ;; =========================================================================== |