[Emacs-diffs] Changes to emacs/lisp/rect.el

[Richard M. Stallman]

Index: emacs/lisp/rect.el
diff -c emacs/lisp/rect.el:1.38 emacs/lisp/rect.el:1.39
*** emacs/lisp/rect.el:1.38     Fri Nov 16 19:47:42 2001
--- emacs/lisp/rect.el  Tue Feb 26 11:05:48 2002
***************
*** 367,374 ****
    (apply-on-rectangle 'clear-rectangle-line start end fill))
  
  (defun clear-rectangle-line (startcol endcol fill)
!   (let ((pt (point-at-eol))
!       spaces)
      (when (= (move-to-column startcol (or fill 'coerce)) startcol)
        (if (and (not fill)
               (<= (save-excursion (goto-char pt) (current-column)) endcol))
--- 367,373 ----
    (apply-on-rectangle 'clear-rectangle-line start end fill))
  
  (defun clear-rectangle-line (startcol endcol fill)
!   (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,384 ****
        ;; else
        (setq pt (point))
        (move-to-column endcol t)
!       (setq spaces (- (point) pt))
        (delete-region pt (point))
!       (indent-to (+ (current-column) spaces))))))
  
  (provide 'rect)
  
--- 375,383 ----
        ;; else
        (setq pt (point))
        (move-to-column endcol t)
!       (setq endcol (current-column))
        (delete-region pt (point))
!       (indent-to endcol)))))
  
  (provide 'rect)