From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 9 Jul 2014 02:20:21 +0000 (-0400)
Subject: * lisp/rect.el (apply-on-rectangle): Check forward-line really moved to the
X-Git-Tag: emacs-25.0.90~2612^2~709^2~671
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=388b22deb41bd53d9294c0e4dcfb6af286252884;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f50993e2131..ce4c371aeed 100644
--- 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 a2f8e4f6371..4c3aa08d7bd 100644
--- 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)))