From 9a4d87c8d5f4503d67d5155eae6d543cc31f86d0 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Wed, 10 May 2006 02:07:12 +0000 Subject: [PATCH] Revision: emacs@sv.gnu.org/emacs--devo--0--patch-272 (comint-insert-input): Remove redundant calls to setq and goto-char --- lisp/ChangeLog | 5 +++++ lisp/comint.el | 3 +-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 50fb393e245..4b3f30e9692 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-05-09 Miles Bader + + * comint.el (comint-insert-input): Remove redundant calls to setq + and goto-char. + 2006-05-10 Nick Roberts * comint.el (comint-insert-input): Make it work when 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 ;; =========================================================================== -- 2.11.4.GIT