Mercurial > emacs
comparison lisp/comint.el @ 14814:3793008500cd
(comint-exec-1): Use dumb instead of unknown, for terminfo.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 17 Mar 1996 15:29:34 +0000 |
parents | 325bc6726a7b |
children | cf1e6f4dd2b0 |
comparison
equal
deleted
inserted
replaced
14813:2dbe6630a156 | 14814:3793008500cd |
---|---|
580 (defun comint-exec-1 (name buffer command switches) | 580 (defun comint-exec-1 (name buffer command switches) |
581 (let ((process-environment | 581 (let ((process-environment |
582 (nconc | 582 (nconc |
583 ;; If using termcap, we specify `emacs' as the terminal type | 583 ;; If using termcap, we specify `emacs' as the terminal type |
584 ;; because that lets us specify a width. | 584 ;; because that lets us specify a width. |
585 ;; If using terminfo, we specify `unknown' because that is | 585 ;; If using terminfo, we specify `dumb' because that is |
586 ;; a defined terminal type. `emacs' is not a defined terminal type | 586 ;; a defined terminal type. `emacs' is not a defined terminal type |
587 ;; and there is no way for us to define it here. | 587 ;; and there is no way for us to define it here. |
588 ;; Some programs that use terminfo get very confused | 588 ;; Some programs that use terminfo get very confused |
589 ;; if TERM is not a valid terminal type. | 589 ;; if TERM is not a valid terminal type. |
590 (if (and (boundp 'system-uses-terminfo) system-uses-terminfo) | 590 (if (and (boundp 'system-uses-terminfo) system-uses-terminfo) |
591 (list "TERM=unknown" | 591 (list "TERM=dumb" |
592 (format "COLUMNS=%d" (frame-width))) | 592 (format "COLUMNS=%d" (frame-width))) |
593 (list "TERM=emacs" | 593 (list "TERM=emacs" |
594 (format "TERMCAP=emacs:co#%d:tc=unknown:" (frame-width)))) | 594 (format "TERMCAP=emacs:co#%d:tc=unknown:" (frame-width)))) |
595 (if (getenv "EMACS") nil (list "EMACS=t")) | 595 (if (getenv "EMACS") nil (list "EMACS=t")) |
596 process-environment)) | 596 process-environment)) |