Mercurial > emacs
changeset 58892:2a6a963af889
(term-termcap-format): Synchronyze with terminfo.
(term-emulate-terminal): Handle reset.
(term-reset-terminal): New function.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sat, 11 Dec 2004 21:05:19 +0000 |
| parents | 75cac0943699 |
| children | a10606066523 |
| files | lisp/ChangeLog lisp/term.el |
| diffstat | 2 files changed, 28 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Dec 11 18:46:43 2004 +0000 +++ b/lisp/ChangeLog Sat Dec 11 21:05:19 2004 +0000 @@ -1,3 +1,9 @@ +2004-12-11 Dan Nicolaescu <dann@ics.uci.edu> + + * term.el (term-termcap-format): Synchronyze with terminfo. + (term-emulate-terminal): Handle reset. + (term-reset-terminal): New function. + 2004-12-11 Thien-Thi Nguyen <ttn@gnu.org> * play/zone.el (zone-programs): Add `zone-pgm-random-life'.
--- a/lisp/term.el Sat Dec 11 18:46:43 2004 +0000 +++ b/lisp/term.el Sat Dec 11 21:05:19 2004 +0000 @@ -1402,7 +1402,7 @@ :kl=\\EOD:kd=\\EOB:kr=\\EOC:ku=\\EOA:kN=\\E[6~:kP=\\E[5~:@7=\\E[4~:kh=\\E[1~\ :mk=\\E[8m:cb=\\E[1K:op=\\E[39;49m:Co#8:pa#64:AB=\\E[4%%dm:AF=\\E[3%%dm:cr=^M\ :bl=^G:do=^J:le=^H:ta=^I:se=\E[27m:ue=\E24m\ -:kb=^?:kD=^[[3~:sc=\E7:rc=\E8:" +:kb=^?:kD=^[[3~:sc=\E7:rc=\E8:r1=\Ec:" ;;; : -undefine ic ;;; don't define :te=\\E[2J\\E[?47l\\E8:ti=\\E7\\E[?47h\ "termcap capabilities supported") @@ -2893,6 +2893,10 @@ (term-goto (car term-saved-cursor) (cdr term-saved-cursor))) (setq term-terminal-state 0)) + ((eq char ?c) ;; \Ec - Reset (terminfo: rs1) + ;; This is used by the "clear" program. + (setq term-terminal-state 0) + (term-reset-terminal)) ;; The \E#8 reset sequence for xterm. We ;; probably don't need to handle it, but this ;; is the code to parse it. @@ -3020,13 +3024,29 @@ (set-marker term-home-marker (point)) (setq term-current-row (1- term-height)))))) +;;; Reset the terminal, delete all the content and set the face to the +;;; default one. +(defun term-reset-terminal () + (erase-buffer) + (setq term-current-row 1) + (setq term-current-column 1) + (setq term-insert-mode nil) + (setq term-current-face nil) + (setq term-ansi-current-underline 0) + (setq term-ansi-current-bold 0) + (setq term-ansi-current-reverse 0) + (setq term-ansi-current-color 0) + (setq term-ansi-current-invisible 0) + (setq term-ansi-face-already-done 1) + (setq term-ansi-current-bg-color 0)) + ;;; New function to deal with ansi colorized output, as you can see you can ;;; have any bold/underline/fg/bg/reverse combination. -mm (defun term-handle-colors-array (parameter) (cond -;;; Bold +;;; Bold (terminfo: bold) ((eq parameter 1) (setq term-ansi-current-bold 1))