From 633174be366ab8eb7a40990f3cbbe836f903f919 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 17 Nov 2001 00:35:04 +0000 Subject: [PATCH] (delete-rectangle-line): Fix pos/column confusion. --- lisp/ChangeLog | 4 ++++ lisp/rect.el | 10 +++------- 2 files changed, 7 insertions(+), 7 deletions(-) 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 + + * rect.el (delete-rectangle-line): Fix pos/column confusion. + 2001-11-15 Stefan Monnier * menu-bar.el (menu-bar-edit-menu) : 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))) -- 2.39.2