From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 8 Apr 1994 06:57:27 +0000 (+0000)
Subject: (comint-exec-1): Handle both termcap and terminfo.
X-Git-Tag: emacs-19.34~9103
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1f9e761d2055db367fac790b0e5218b196ed02d1;p=emacs.git

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

diff --git a/lisp/comint.el b/lisp/comint.el
index 11e49d4fdb7..8be11e72219 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -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