/[emacs]/emacs/lisp/term.el
ViewVC logotype

Diff of /emacs/lisp/term.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.62 by rms, Thu Nov 25 02:54:20 2004 UTC revision 1.63 by dann, Sat Dec 11 21:05:17 2004 UTC
# Line 1402  The main purpose is to get rid of the lo Line 1402  The main purpose is to get rid of the lo
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")
# Line 2893  See `term-prompt-regexp'." Line 2893  See `term-prompt-regexp'."
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.
# Line 3020  See `term-prompt-regexp'." Line 3024  See `term-prompt-regexp'."
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    

Legend:
Removed from v.1.62  
changed lines
  Added in v.1.63

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26