Make toggle-truncate-lines disable visual-line-mode

* lisp/simple.el (toggle-truncate-lines): Disable
`visual-line-mode' (bug#29664).
This commit is contained in:
Lars Ingebrigtsen 2021-09-03 08:36:03 +02:00
parent 0034067f47
commit 0d3ae350c9

View file

@ -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.