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

(term-emulate-terminal): Extract proper command string

Browse source 
which is supplied to term-command-hook.
This commit is contained in:
Eli Zaretskii 2002-02-03 11:25:50 +00:00
parent 47edc1f718
commit 46ea0665a7
2 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2002-02-02 Eli Zaretskii <eliz@is.elta.co.il>
* term.el (term-emulate-terminal): Extract proper command string
which is supplied to term-command-hook.
2002-02-03 Richard M. Stallman <rms@gnu.org>
* international/quail.el (quail-help): Don't call help-setup-xref.

6
lisp/term.el
View file

@ -2827,11 +2827,11 @@ See `term-prompt-regexp'."
((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)