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

(term-emulate-terminal): Fix last change.

Browse Source
This commit is contained in:
Eli Zaretskii 2002-04-16 18:50:07 +00:00
parent 2400310de0
commit 04e7ed7b6e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/term.el
View File

@ -2829,9 +2829,9 @@ See `term-prompt-regexp'."
((eq char ?\032)
(let ((end (string-match "\r?$" 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)