1402 |
:kl=\\EOD:kd=\\EOB:kr=\\EOC:ku=\\EOA:kN=\\E[6~:kP=\\E[5~:@7=\\E[4~:kh=\\E[1~\ |
:kl=\\EOD:kd=\\EOB:kr=\\EOC:ku=\\EOA:kN=\\E[6~:kP=\\E[5~:@7=\\E[4~:kh=\\E[1~\ |
1403 |
:mk=\\E[8m:cb=\\E[1K:op=\\E[39;49m:Co#8:pa#64:AB=\\E[4%%dm:AF=\\E[3%%dm:cr=^M\ |
:mk=\\E[8m:cb=\\E[1K:op=\\E[39;49m:Co#8:pa#64:AB=\\E[4%%dm:AF=\\E[3%%dm:cr=^M\ |
1404 |
:bl=^G:do=^J:le=^H:ta=^I:se=\E[27m:ue=\E24m\ |
:bl=^G:do=^J:le=^H:ta=^I:se=\E[27m:ue=\E24m\ |
1405 |
:kb=^?:kD=^[[3~:sc=\E7:rc=\E8:" |
:kb=^?:kD=^[[3~:sc=\E7:rc=\E8:r1=\Ec:" |
1406 |
;;; : -undefine ic |
;;; : -undefine ic |
1407 |
;;; don't define :te=\\E[2J\\E[?47l\\E8:ti=\\E7\\E[?47h\ |
;;; don't define :te=\\E[2J\\E[?47l\\E8:ti=\\E7\\E[?47h\ |
1408 |
"termcap capabilities supported") |
"termcap capabilities supported") |
2893 |
(term-goto (car term-saved-cursor) |
(term-goto (car term-saved-cursor) |
2894 |
(cdr term-saved-cursor))) |
(cdr term-saved-cursor))) |
2895 |
(setq term-terminal-state 0)) |
(setq term-terminal-state 0)) |
2896 |
|
((eq char ?c) ;; \Ec - Reset (terminfo: rs1) |
2897 |
|
;; This is used by the "clear" program. |
2898 |
|
(setq term-terminal-state 0) |
2899 |
|
(term-reset-terminal)) |
2900 |
;; The \E#8 reset sequence for xterm. We |
;; The \E#8 reset sequence for xterm. We |
2901 |
;; probably don't need to handle it, but this |
;; probably don't need to handle it, but this |
2902 |
;; is the code to parse it. |
;; is the code to parse it. |
3024 |
(set-marker term-home-marker (point)) |
(set-marker term-home-marker (point)) |
3025 |
(setq term-current-row (1- term-height)))))) |
(setq term-current-row (1- term-height)))))) |
3026 |
|
|
3027 |
|
;;; Reset the terminal, delete all the content and set the face to the |
3028 |
|
;;; default one. |
3029 |
|
(defun term-reset-terminal () |
3030 |
|
(erase-buffer) |
3031 |
|
(setq term-current-row 1) |
3032 |
|
(setq term-current-column 1) |
3033 |
|
(setq term-insert-mode nil) |
3034 |
|
(setq term-current-face nil) |
3035 |
|
(setq term-ansi-current-underline 0) |
3036 |
|
(setq term-ansi-current-bold 0) |
3037 |
|
(setq term-ansi-current-reverse 0) |
3038 |
|
(setq term-ansi-current-color 0) |
3039 |
|
(setq term-ansi-current-invisible 0) |
3040 |
|
(setq term-ansi-face-already-done 1) |
3041 |
|
(setq term-ansi-current-bg-color 0)) |
3042 |
|
|
3043 |
;;; New function to deal with ansi colorized output, as you can see you can |
;;; New function to deal with ansi colorized output, as you can see you can |
3044 |
;;; have any bold/underline/fg/bg/reverse combination. -mm |
;;; have any bold/underline/fg/bg/reverse combination. -mm |
3045 |
|
|
3046 |
(defun term-handle-colors-array (parameter) |
(defun term-handle-colors-array (parameter) |
3047 |
(cond |
(cond |
3048 |
|
|
3049 |
;;; Bold |
;;; Bold (terminfo: bold) |
3050 |
((eq parameter 1) |
((eq parameter 1) |
3051 |
(setq term-ansi-current-bold 1)) |
(setq term-ansi-current-bold 1)) |
3052 |
|
|