Mercurial > emacs
changeset 43084:89b8de61964f
(term-emulate-terminal): Extract proper command string
which is supplied to term-command-hook.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sun, 03 Feb 2002 11:25:23 +0000 |
| parents | abc5c5ca5655 |
| children | dbd943055406 |
| files | lisp/term.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term.el Sun Feb 03 11:21:01 2002 +0000 +++ b/lisp/term.el Sun Feb 03 11:25:23 2002 +0000 @@ -2827,11 +2827,11 @@ ((eq char ?\^G) (beep t)) ; Bell ((eq char ?\032) - (let ((end (string-match "\n" str i))) + (let ((end (string-match "\r?$" str i))) (if end (progn (funcall term-command-hook - (substring str (1+ i) (1- end))) - (setq i end)) + (substring str (1+ i) end)) + (setq i (match-end 0))) (setq term-terminal-parameter (substring str i)) (setq term-terminal-state 4)