changeset 96874:8683c121397c

(visual-line-mode): Disable truncate-partial-width-windows.
author Chong Yidong <cyd@stupidchicken.com>
date Mon, 21 Jul 2008 18:14:23 +0000
parents 1cae59402f10
children 771bcc6d1c99
files lisp/simple.el
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Mon Jul 21 18:14:09 2008 +0000
+++ b/lisp/simple.el	Mon Jul 21 18:14:23 2008 +0000
@@ -4516,12 +4516,16 @@
   (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 ()