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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fc026751c9a6014ba2b6e2787ba02490a59cdaae..c71c4ec392ff5621b9450f15de6bbeba8e345ca8 100644 (file)
--- 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 32bc3f7566c7d2fda80e8d306776675fbc0d7f3a..c4a47b5b15d10e2effd7f9b16efd94378b40ba97 100644 (file)
--- 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)))