mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Revert parts of 3f076a8e44 that caused test failures

Browse source 
* 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.
This commit is contained in:
Juri Linkov 2022-08-28 22:13:45 +03:00
parent 3edee9a6a3
commit 35af917f18
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/simple.el
View file

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

2
lisp/window.el
View file

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