# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1094590443 0
# Node ID bebd8a58e0f8eef3c2a87c339df6c24a10176078
# Parent  eaf57d83bae6e0926133ce5b405c4d3ba822fa46
(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 -r eaf57d83bae6 -r bebd8a58e0f8 lisp/term.el
--- a/lisp/term.el	Tue Sep 07 20:53:43 2004 +0000
+++ b/lisp/term.el	Tue Sep 07 20:54:03 2004 +0000
@@ -925,7 +925,7 @@
 (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 @@
   (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)