summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-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