(visual-line-mode): Disable truncate-partial-width-windows.

diff --git a/lisp/simple.el b/lisp/simple.el
index 66541973a7e62049806fb734c17c6a7540486f74..c242f46bb8982c29ba9f9f76045c3ac8a162b0c1 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4516,12 +4516,16 @@ This also turns on `word-wrap' in the buffer."
   (if visual-line-mode
       (progn
        (set (make-local-variable 'line-move-visual) t)
-       (setq word-wrap t)
-       (setq fringe-indicator-alist
+       (set (make-local-variable 'truncate-partial-width-windows) nil)
+       (setq truncate-lines nil
+             word-wrap t
+             fringe-indicator-alist
              (cons (cons 'continuation visual-line-fringe-indicators)
                    fringe-indicator-alist)))
     (kill-local-variable 'line-move-visual)
     (kill-local-variable 'word-wrap)
+    (kill-local-variable 'truncate-lines)
+    (kill-local-variable 'truncate-partial-width-windows)
     (kill-local-variable 'fringe-indicator-alist)))
 
 (defun turn-on-visual-line-mode ()