master 35af917f18: Revert parts of 3f076a8e44 that caused test failures

[Juri Linkov]

branch: master
commit 35af917f187719fecadde278a51fd10bf47eed07
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    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.
---
 lisp/simple.el | 2 +-
 lisp/window.el | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/simple.el b/lisp/simple.el
index ceb29b1e30..daacf697ff 100644
--- 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 db69379e69..ec2b0a6930 100644
--- 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.