diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2008-07-21 18:14:23 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2008-07-21 18:14:23 +0000 |
| commit | c58140f4b04f96d7aea24f035c33f3385992c76b (patch) | |
| tree | ad17709db1f77ad91c02d84528dd8f3c6bef2adc | |
| parent | 844b9239ba59fe79952165b709bbb31013adbf41 (diff) | |
| download | emacs-c58140f4b04f96d7aea24f035c33f3385992c76b.tar.gz | |
(visual-line-mode): Disable truncate-partial-width-windows.
| -rw-r--r-- | lisp/simple.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 66541973a7e..c242f46bb89 100644 --- 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 () |