From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 17 Nov 2001 00:35:04 +0000 (+0000)
Subject: (delete-rectangle-line): Fix pos/column confusion.
X-Git-Tag: emacs-21.2~304
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=633174be366ab8eb7a40990f3cbbe836f903f919;p=emacs.git

(delete-rectangle-line): Fix pos/column confusion.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fc026751c9a..c71c4ec392f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-11-16  Stefan Monnier  <monnier@cs.yale.edu>
+
+	* rect.el (delete-rectangle-line): Fix pos/column confusion.
+
 2001-11-15  Stefan Monnier  <monnier@cs.yale.edu>
 
 	* menu-bar.el (menu-bar-edit-menu) <copy>: Put an explicit key binding.
diff --git a/lisp/rect.el b/lisp/rect.el
index 32bc3f7566c..c4a47b5b15d 100644
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -137,13 +137,9 @@ the function is called."
 (defun delete-rectangle-line (startcol endcol fill)
   (let ((pt (line-end-position)))
     (when (= (move-to-column-force startcol (or fill 'coerce)) startcol)
-      (if (and (not fill) (<= pt endcol))
-	  (delete-region (point) pt)
-	;; else
-	(setq pt (point))
-	(move-to-column-force endcol)
-	(delete-region pt (point))))
-    ))
+      (setq pt (point))
+      (move-to-column-force endcol)
+      (delete-region pt (point)))))
 
 (defun delete-extract-rectangle-line (startcol endcol lines fill)
   (let ((pt (point-at-eol)))