From: Kim F. Storm <storm@cua.dk>
Date: Tue, 7 Sep 2004 20:54:03 +0000 (+0000)
Subject: (term-window-width): Only use full window width on
X-Git-Tag: ttn-vms-21-2-B4~5039
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=59cc2a2738f5aa23378e225b33708c03e2ca2f26;p=emacs.git

(term-window-width): Only use full window width on
window system if overflow-newline-into-fringe is enabled.
(term-mode): Don't disable overflow-newline-into-fringe.
---

diff --git a/lisp/term.el b/lisp/term.el
index 9866db7e29c..590a9b0a1d5 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -925,7 +925,7 @@ is buffer-local.")
 (defun term-window-width ()
   (if (featurep 'xemacs)
       (1- (window-width))
-    (if window-system
+    (if (and window-system overflow-newline-into-fringe)
 	(window-width)
       (1- (window-width)))))
 
@@ -988,8 +988,6 @@ Entry to this mode runs the hooks on `term-mode-hook'."
   (make-local-variable 'term-width)
   (setq term-width (term-window-width))
   (setq term-height (1- (window-height)))
-  (term-ifnot-xemacs
-   (set (make-local-variable 'overflow-newline-into-fringe) nil))
   (make-local-variable 'term-terminal-parameter)
   (make-local-variable 'term-saved-cursor)
   (make-local-variable 'term-last-input-start)