Revert parts of 3f076a8e44 that caused test failures

* lisp/simple.el (line-move-finish):
* lisp/window.el (scroll-command--goto-goal-column):
Revert back to using truncate-partial-width-windows instead of
truncated-partial-width-window-p.  This change caused test failures
in lisp/ls-lisp-tests.log and lisp/emacs-lisp/edebug-tests.log.

diff --git a/lisp/simple.el b/lisp/simple.el
index ceb29b1e30aab02122c935b25713e76bc0262424..daacf697ff3e100a46f179d819a4a8120e48f8a9 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -7973,7 +7973,7 @@ If NOERROR, don't signal an error if we can't move that many lines."
 
        ;; Move to the desired column.
         (if (and line-move-visual
-                 (not (or truncate-lines (truncated-partial-width-window-p))))
+                 (not (or truncate-lines truncate-partial-width-windows)))
             ;; Under line-move-visual, goal-column should be
             ;; interpreted in units of the frame's canonical character
             ;; width, which is exactly what vertical-motion does.

diff --git a/lisp/window.el b/lisp/window.el
index db69379e692dffd585b6a37c46fd9aeadcb73cfc..ec2b0a69302347ab4092c3deed06f650c20f70a3 100644 (file)
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -10137,7 +10137,7 @@ semipermanent goal column for this command."
   (when goal-column
     ;; Move to the desired column.
     (if (and line-move-visual
-             (not (or truncate-lines (truncated-partial-width-window-p))))
+             (not (or truncate-lines truncate-partial-width-windows)))
         ;; Under line-move-visual, goal-column should be
         ;; interpreted in units of the frame's canonical character
         ;; width, which is exactly what vertical-motion does.