mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(clear-rectangle-line): Reindent to the same column

Browse source 
that move-to-column reached when it tried to go to endcol.
This commit is contained in:
Richard M. Stallman 2002-02-26 16:05:48 +00:00
parent 8caa4ef5bd
commit 7dfee0293d
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/rect.el
View file

@ -367,8 +367,7 @@ rectangle which were empty."
(apply-on-rectangle 'clear-rectangle-line start end fill))
(defun clear-rectangle-line (startcol endcol fill)
(let ((pt (point-at-eol))
spaces)
(let ((pt (point-at-eol)))
(when (= (move-to-column startcol (or fill 'coerce)) startcol)
(if (and (not fill)
(<= (save-excursion (goto-char pt) (current-column)) endcol))
@ -376,9 +375,9 @@ rectangle which were empty."
;; else
(setq pt (point))
(move-to-column endcol t)
(setq spaces (- (point) pt))
(setq endcol (current-column))
(delete-region pt (point))
(indent-to (+ (current-column) spaces))))))
(indent-to endcol)))))
(provide 'rect)