From: Gerd Moellmann Date: Tue, 20 Mar 2001 15:11:31 +0000 (+0000) Subject: (comint-exec-1): Set columns of the terminal to X-Git-Tag: emacs-pretest-21.0.101~239 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a91ad7c961c388705097f30b765dbfe16df1cc15;p=emacs.git (comint-exec-1): Set columns of the terminal to window-width instead of frame-width. --- 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 + * 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