master 0d3ae35: Make toggle-truncate-lines disable visual-line-mode

[Lars Ingebrigtsen]

branch: master
commit 0d3ae350c91c84b11f7d5fb0913fb7d294bc756f
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Make toggle-truncate-lines disable visual-line-mode
    
    * lisp/simple.el (toggle-truncate-lines): Disable
    `visual-line-mode' (bug#29664).
---
 lisp/simple.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/lisp/simple.el b/lisp/simple.el
index d6c448b..c649516 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -8306,8 +8306,13 @@ non-nil."
                      (if (eq buffer (window-buffer window))
                          (set-window-hscroll window 0)))
                    nil t)))
-  (message "Truncate long lines %s"
-          (if truncate-lines "enabled" "disabled")))
+  (message "Truncate long lines %s%s"
+          (if truncate-lines "enabled" "disabled")
+           (if (and truncate-lines visual-line-mode)
+               (progn
+                 (visual-line-mode -1)
+                 (message " and `visual-line-mode' disabled"))
+             "")))
 
 (defun toggle-word-wrap (&optional arg)
   "Toggle whether to use word-wrapping for continuation lines.