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:
parent
0034067f47
commit
0d3ae350c9
1 changed files with 7 additions and 2 deletions
|
@ -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.
|
||||
|
|
Loading…
Add table
Reference in a new issue