procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(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
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)