From c7bc379f7e5f38502b7e64fb445deb9b3914e35b Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Tue, 16 Apr 2002 18:48:45 +0000 Subject: [PATCH] (term-emulate-terminal): Fix last change. --- lisp/ChangeLog | 4 ++++ lisp/term.el | 8 ++++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 415841d5856..053fb5c9a7e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2002-04-16 Eli Zaretskii + + * term.el (term-emulate-terminal): Fix last change. + 2002-04-12 Richard M. Stallman * files.el (hack-one-local-variable): Clear text props from string diff --git a/lisp/term.el b/lisp/term.el index 005ee02c8cc..d5d1173daea 100644 --- a/lisp/term.el +++ b/lisp/term.el @@ -2830,11 +2830,11 @@ See `term-prompt-regexp'." ((eq char ?\^G) (beep t)) ; Bell ((eq char ?\032) - (let ((end (string-match "\r?$" str i))) + (let ((end (string-match "\r?\n" str i))) (if end - (progn (funcall term-command-hook - (substring str (1+ i) end)) - (setq i (match-end 0))) + (funcall term-command-hook + (prog1 (substring str (1+ i) end) + (setq i (match-end 0)))) (setq term-terminal-parameter (substring str i)) (setq term-terminal-state 4) -- 2.39.2