summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGerd Moellmann <gerd@gnu.org>2001-03-20 15:11:31 +0000
committerGerd Moellmann <gerd@gnu.org>2001-03-20 15:11:31 +0000
commita91ad7c961c388705097f30b765dbfe16df1cc15 (patch)
treefc27f150f18b5b936b320390fffbfef54e63e3c2
parentfa88947ed16e0d26ccd9db1e182dedfcf4efbded (diff)
downloademacs-a91ad7c961c388705097f30b765dbfe16df1cc15.tar.gz
emacs-a91ad7c961c388705097f30b765dbfe16df1cc15.tar.bz2
emacs-a91ad7c961c388705097f30b765dbfe16df1cc15.zip
(comint-exec-1): Set columns of the terminal to
window-width instead of frame-width.
-rw-r--r--lisp/ChangeLog3
-rw-r--r--lisp/comint.el4
2 files changed, 5 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index adaf4a5076c..0f459dec6ab 100644
--- 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 b2b95dfe338..aadf85f7261 100644
--- 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