Mercurial > emacs
comparison lisp/term.el @ 61396:a2c0a72230cf
* cus-edit.el (custom-modified-face):
* comint.el (comint-highlight-input): Fix previous changes.
* term.el (term-handle-ansi-escape): Add a comment.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Fri, 08 Apr 2005 20:55:09 +0000 |
| parents | 47b31fabc07f |
| children | d4014c213e7e 02f1dbc4a199 |
comparison
equal
deleted
inserted
replaced
| 61395:21f8452c722e | 61396:a2c0a72230cf |
|---|---|
| 3231 (term-delete-lines (max 1 term-terminal-parameter))) | 3231 (term-delete-lines (max 1 term-terminal-parameter))) |
| 3232 ;; \E[P - delete chars | 3232 ;; \E[P - delete chars |
| 3233 ((eq char ?P) | 3233 ((eq char ?P) |
| 3234 (term-delete-chars (max 1 term-terminal-parameter))) | 3234 (term-delete-chars (max 1 term-terminal-parameter))) |
| 3235 ;; \E[@ - insert spaces | 3235 ;; \E[@ - insert spaces |
| 3236 ((eq char ?@) | 3236 ((eq char ?@) ;; (terminfo: ich) |
| 3237 (term-insert-spaces (max 1 term-terminal-parameter))) | 3237 (term-insert-spaces (max 1 term-terminal-parameter))) |
| 3238 ;; \E[?h - DEC Private Mode Set | 3238 ;; \E[?h - DEC Private Mode Set |
| 3239 ((eq char ?h) | 3239 ((eq char ?h) |
| 3240 (cond ((eq term-terminal-parameter 4) ;; (terminfo: smir) | 3240 (cond ((eq term-terminal-parameter 4) ;; (terminfo: smir) |
| 3241 (setq term-insert-mode t)) | 3241 (setq term-insert-mode t)) |