From 9a4d87c8d5f4503d67d5155eae6d543cc31f86d0 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Wed, 10 May 2006 02:07:12 +0000 Subject: Revision: emacs@sv.gnu.org/emacs--devo--0--patch-272 (comint-insert-input): Remove redundant calls to setq and goto-char --- lisp/comint.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'lisp/comint.el') 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 ;; =========================================================================== -- cgit v1.2.1