[Emacs-diffs] /srv/bzr/emacs/trunk r106431: Fix bug #10076 with vertical cursor motion in hscrolled windows.

[Eli Zaretskii]

------------------------------------------------------------
revno: 106431
fixes bug(s): http://debbugs.gnu.org/10076
committer: Eli Zaretskii <address@hidden>
branch nick: trunk
timestamp: Sat 2011-11-19 21:49:56 +0200
message:
  Fix bug #10076 with vertical cursor motion in hscrolled windows.
  
   lisp/simple.el (line-move): Force movement by logical lines for any
   hscrolled window, not only when auto-hscroll-mode is on.
   (line-move-visual): Update doc string to that effect.
modified:
  lisp/ChangeLog
  lisp/simple.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-11-19 13:13:48 +0000
+++ b/lisp/ChangeLog    2011-11-19 19:49:56 +0000
@@ -1,3 +1,9 @@
+2011-11-19  Eli Zaretskii  <address@hidden>
+
+       * simple.el (line-move): Force movement by logical lines for any
+       hscrolled window, not only when auto-hscroll-mode is on.
+       (line-move-visual): Update doc string to that effect.  (Bug#10076)
+
 2011-11-19  Andreas Schwab  <address@hidden>
 
        * language/european.el (macintosh): Define as alias for mac-roman.

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2011-11-17 09:09:20 +0000
+++ b/lisp/simple.el    2011-11-19 19:49:56 +0000
@@ -4277,8 +4277,8 @@
 If nil, `line-move' moves point by logical lines.
 A non-nil setting of `goal-column' overrides the value of this variable
 and forces movement by logical lines.
-Disabling `auto-hscroll-mode' also overrides forces movement by logical
-lines when the window is horizontally scrolled."
+A window that is  horizontally scrolled also forces movement by logical
+lines."
   :type 'boolean
   :group 'editing-basics
   :version "23.1")
@@ -4358,12 +4358,10 @@
     (if (and line-move-visual
             ;; Display-based column are incompatible with goal-column.
             (not goal-column)
-            ;; When auto-hscroll-mode is turned off and the text in
-            ;; the window is scrolled to the left, display-based
-            ;; motion doesn't make sense (because each logical line
-            ;; occupies exactly one screen line).
-            (not (and (null auto-hscroll-mode)
-                      (> (window-hscroll) 0))))
+            ;; When the text in the window is scrolled to the left,
+            ;; display-based motion doesn't make sense (because each
+            ;; logical line occupies exactly one screen line).
+            (not (> (window-hscroll) 0)))
        (line-move-visual arg noerror)
       (line-move-1 arg noerror to-end))))