Commit 1f9e761d authored by Karl Heuer's avatar Karl Heuer

(comint-exec-1): Handle both termcap and terminfo.

parent a8015ab5
......@@ -553,9 +553,13 @@ buffer. The hook `comint-exec-hook' is run after each exec."
(defun comint-exec-1 (name buffer command switches)
(let ((process-environment
(nconc (list "EMACS=t" "TERM=emacs"
(format "TERMCAP=emacs:co#%d:tc=unknown" (frame-width)))
process-environment)))
(nconc
(if (and (boundp 'system-uses-terminfo) system-uses-terminfo)
(list "EMACS=t" "TERM=unknown"
(format "COLUMNS=%d" (frame-width)))
(list "EMACS=t" "TERM=emacs"
(format "TERMCAP=emacs:co#%d:tc=unknown" (frame-width))))
process-environment)))
(apply 'start-process name buffer command switches)))
;;; Input history processing in a buffer
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment