In term-window-width call window-text-width instead of window-width (Bug#16470).

[bpt/emacs.git] / lisp / term.el

diff --git a/lisp/term.el b/lisp/term.el
index 2a6915f..6647e3e 100644 (file)
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -975,7 +975,8 @@ is buffer-local."
           (display-graphic-p)
           overflow-newline-into-fringe
           (/= (frame-parameter nil 'right-fringe) 0))
-      (window-width)
+      ;; Call window-text-width instead of window-width (Bug#16470).
+      (window-text-width)
     (1- (window-width))))
 
 \f