simple.el (line-move-visual): Do not truncate goal column to integer size.

(Bug#7020)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ce8d515a107fc86050e9cc632729466f35b13a33..8ac5a4a43518d126e7ce6553335c805652ed78a3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-09-12  David Reitter  <david.reitter@gmail.com>
+
+       * simple.el (line-move-visual): Do not truncate goal column to
+       integer size.  (Bug#7020)
+
 2010-09-11  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * repeat.el (repeat): Allow repeating when the last event is a click.

diff --git a/lisp/simple.el b/lisp/simple.el
index d5065b73ff9f019dc16997a7efaafcf0cc0920f1..28b60cc1cf51e9734178d321c748cf790e77d22f 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4193,7 +4193,7 @@ into account variable-width characters and line continuation."
     (or (and (= (vertical-motion
                 (cons (or goal-column
                           (if (consp temporary-goal-column)
-                              (truncate (car temporary-goal-column))
+                              (car temporary-goal-column)
                             temporary-goal-column))
                       arg))
                arg)