(comint-exec-1): Set columns of the terminal to

window-width instead of frame-width.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index adaf4a5076cc8d076adaf14bed587912270e7edc..0f459dec6ab6dd07bfd18b55909233d52a86f8f1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-03-20  Gerd Moellmann  <gerd@gnu.org>
 
+       * comint.el (comint-exec-1): Set columns of the terminal to
+       window-width instead of frame-width.
+
        * info.el (Info-scroll-down): Add missing WINDOW arg for
        pos-visible-in-window-p.
 

diff --git a/lisp/comint.el b/lisp/comint.el
index b2b95dfe3388b109595bb4727b66ac8ff6095788..aadf85f7261acbe93441d501821200b03e0883d5 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -740,9 +740,9 @@ buffer.  The hook `comint-exec-hook' is run after each exec."
          ;; if TERM is not a valid terminal type.
          (if (and (boundp 'system-uses-terminfo) system-uses-terminfo)
              (list "TERM=dumb" "TERMCAP="
-                   (format "COLUMNS=%d" (frame-width)))
+                   (format "COLUMNS=%d" (window-width)))
            (list "TERM=emacs"
-                 (format "TERMCAP=emacs:co#%d:tc=unknown:" (frame-width))))
+                 (format "TERMCAP=emacs:co#%d:tc=unknown:" (window-width))))
          (if (getenv "EMACS") nil (list "EMACS=t"))
          process-environment))
        (default-directory