* lisp/rect.el (apply-on-rectangle): Check forward-line really moved to the

next line.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f50993e2131d8f477298a5fd9c4d3c3b64e83519..ce4c371aeed319b888348d0cf88deef2155182fa 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-07-09  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * rect.el (apply-on-rectangle): Check forward-line really moved to the
+       next line.
+
 2014-07-09  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * progmodes/sh-script.el (sh-smie-sh-rules): Don't align with a && in

diff --git a/lisp/rect.el b/lisp/rect.el
index a2f8e4f6371b49f4950ddd2576e8762a4fed4e1c..4c3aa08d7bda8ffdc353119ddf98b4624f2bbce0 100644 (file)
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -163,7 +163,7 @@ The final point after the last operation will be returned."
           (progn
             (apply function startcol endcol args)
             (setq final-point (point))
-            (and (zerop (forward-line 1))
+            (and (zerop (forward-line 1)) (bolp)
                  (<= (point) endpt))))
       final-point)))