From 857449ed2062dc16b92e5c98e7a316bfde85148e Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 14 Jul 2009 14:22:44 +0000 Subject: [PATCH] * simple.el (line-move): Call line-move-1 if lines are truncated. --- lisp/ChangeLog | 4 ++++ lisp/simple.el | 7 ++++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bb4c8d32529..2e4ccda9011 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2009-07-14 Chong Yidong + + * simple.el (line-move): Call line-move-1 if lines are truncated. + 2009-07-14 Glenn Morris * emacs-lisp/edebug.el (edebug-setup-hook, edebug-all-forms) diff --git a/lisp/simple.el b/lisp/simple.el index 44d3ae5040d..569709771bb 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -4048,7 +4048,12 @@ into account variable-width characters and line continuation." (not executing-kbd-macro) (line-move-partial arg noerror to-end)) (set-window-vscroll nil 0 t) - (if line-move-visual + (if (and line-move-visual + ;; Currently, line-move-visual does not work well with + ;; truncation/hscrolling. This is a stop-gap measure for + ;; Emacs 23.1. + (null truncate-lines) + (null (truncated-partial-width-window-p))) (line-move-visual arg noerror) (line-move-1 arg noerror to-end)))) -- 2.39.5