diff --git a/lisp/simple.el b/lisp/simple.el
index ff7ffafa3a1..441f7ff3440 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -9310,6 +9310,7 @@ non-nil."
            (if (and truncate-lines visual-line-mode)
                (progn
                  (visual-line-mode -1)
+                 (setq truncate-lines t)
                  (format-message " and `visual-line-mode' disabled"))
              "")))