HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
da71ab9
)
(delete-rectangle-line): Use line-end-position.
author
Karl Heuer
<kwzh@gnu.org>
Mon, 16 Aug 1999 20:38:36 +0000
(20:38 +0000)
committer
Karl Heuer
<kwzh@gnu.org>
Mon, 16 Aug 1999 20:38:36 +0000
(20:38 +0000)
lisp/rect.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/rect.el
b/lisp/rect.el
index
4f5ae2d
..
437f030
100644
(file)
--- a/
lisp/rect.el
+++ b/
lisp/rect.el
@@
-135,7
+135,7
@@
the function is called."
))
(defun delete-rectangle-line (startcol endcol fill)
- (let ((pt (
point-at-eol
)))
+ (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)