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

(open-rectangle-line): Remove unused let.

Browse source
This commit is contained in:
Dave Love 2000-07-18 12:50:38 +00:00
parent f164d9b522
commit 74be0ade4c
1 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/rect.el
View file

@ -58,7 +58,7 @@ the desired column only if the line is long enough."
;; to accumulate them for extract-rectangle and delete-extract-rectangle.
(defvar operate-on-rectangle-lines)
;; ### NOTE: this function is untouched, but not used anymore appart in
;; ### NOTE: this function is untouched, but not used anymore apart from
;; `delete-whitespace-rectangle'. `apply-on-rectangle' is used instead. --dv
(defun operate-on-rectangle (function start end coerce-tabs)
"Call FUNCTION for each line of rectangle with corners at START, END.
@ -297,12 +297,10 @@ on the right side of the rectangle."
(goto-char start))
(defun open-rectangle-line (startcol endcol fill)
(let (spaces)
(when (= (move-to-column-force startcol (or fill 'coerce)) startcol)
(unless (and (not fill)
(= (point) (point-at-eol)))
(indent-to endcol)))
))
(when (= (move-to-column-force startcol (or fill 'coerce)) startcol)
(unless (and (not fill)
(= (point) (point-at-eol)))
(indent-to endcol))))
(defun delete-whitespace-rectangle-line (startcol endcol fill)
(when (= (move-to-column-force startcol (or fill 'coerce)) startcol)