Mercurial > emacs
comparison lisp/term.el @ 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 | be541feb06cc |
| children | ae3eecc8a60d ef8a864d950c |
comparison
equal
deleted
inserted
replaced
| 43083:abc5c5ca5655 | 43084:89b8de61964f |
|---|---|
| 2825 ((eq char ?\016)) ; Shift Out - ignored | 2825 ((eq char ?\016)) ; Shift Out - ignored |
| 2826 ((eq char ?\017)) ; Shift In - ignored | 2826 ((eq char ?\017)) ; Shift In - ignored |
| 2827 ((eq char ?\^G) | 2827 ((eq char ?\^G) |
| 2828 (beep t)) ; Bell | 2828 (beep t)) ; Bell |
| 2829 ((eq char ?\032) | 2829 ((eq char ?\032) |
| 2830 (let ((end (string-match "\n" str i))) | 2830 (let ((end (string-match "\r?$" str i))) |
| 2831 (if end | 2831 (if end |
| 2832 (progn (funcall term-command-hook | 2832 (progn (funcall term-command-hook |
| 2833 (substring str (1+ i) (1- end))) | 2833 (substring str (1+ i) end)) |
| 2834 (setq i end)) | 2834 (setq i (match-end 0))) |
| 2835 (setq term-terminal-parameter | 2835 (setq term-terminal-parameter |
| 2836 (substring str i)) | 2836 (substring str i)) |
| 2837 (setq term-terminal-state 4) | 2837 (setq term-terminal-state 4) |
| 2838 (setq i str-length)))) | 2838 (setq i str-length)))) |
| 2839 (t ; insert char FIXME: Should never happen | 2839 (t ; insert char FIXME: Should never happen |