From 59cc2a2738f5aa23378e225b33708c03e2ca2f26 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Tue, 7 Sep 2004 20:54:03 +0000 Subject: [PATCH] (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. --- lisp/term.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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) -- 2.39.2