mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

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

Browse Source 
window-width instead of frame-width.
This commit is contained in:
Gerd Moellmann 2001-03-20 15:11:31 +00:00
parent fa88947ed1
commit a91ad7c961
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -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.

4
lisp/comint.el
View File

@ -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