Lines Matching +defs:open +defs:line
43 the desired column only if the line is long enough."
50 ;; extract-rectangle-line stores lines into this list
57 "Call FUNCTION for each line of rectangle with corners at START, END.
59 that span the starting or ending columns on any line
62 position of start of segment of this line within the rectangle,
65 Point is at the end of the segment of this line within the rectangle."
70 (beginning-of-line)
75 (forward-line 1)
100 (forward-line 1)))
105 "Call FUNCTION for each line of rectangle with corners at START, END.
107 rectangle, plus ARGS extra arguments. Point is at the beginning of line when
113 (beginning-of-line)
117 (forward-line 1)
127 (forward-line 1)))
130 (defun delete-rectangle-line (startcol endcol fill)
136 (defun delete-extract-rectangle-line (startcol endcol lines fill)
150 (defun extract-rectangle-line (startcol endcol lines)
151 (let (start end begextra endextra line)
158 (setq line (buffer-substring start (point)))
169 (setq line (concat (substring line 0 (- (point) end 1))
171 (substring line (+ (length line)
174 (setq line (concat (spaces-string begextra)
175 line
177 (setcdr lines (cons line (cdr lines)))))
191 The same range of columns is deleted in each line starting with the
192 line where the region begins and ending with the line where the region
199 (apply-on-rectangle 'delete-rectangle-line start end fill))
204 Return it as a list of strings, one for each line of the rectangle.
210 (apply-on-rectangle 'delete-extract-rectangle-line start end lines fill)
216 Return it as a list of strings, one for each line of the rectangle."
218 (apply-on-rectangle 'extract-rectangle-line start end lines)
260 RECTANGLE's first line is inserted at point, its second
261 line is inserted at a point vertically under point, etc.
272 (forward-line 1)
280 (defun open-rectangle (start end &optional fill)
290 (apply-on-rectangle 'open-rectangle-line start end fill)
293 (defun open-rectangle-line (startcol endcol fill)
299 (defun delete-whitespace-rectangle-line (startcol endcol fill)
309 "Delete all whitespace following a specified column in each line.
310 The left edge of the rectangle specifies the position in each line
311 at which whitespace deletion should begin. On each line in the
317 (apply-on-rectangle 'delete-whitespace-rectangle-line start end fill))
321 ;; to string-rectangle-line.
324 (defun string-rectangle-line (startcol endcol string delete)
327 (delete-rectangle-line startcol endcol nil))
332 "Replace rectangle contents with STRING on each line.
345 (apply-on-rectangle 'string-rectangle-line start end string t))
352 "Insert STRING on each line of region-rectangle, shifting text right.
366 (apply-on-rectangle 'string-rectangle-line start end string nil))
377 (apply-on-rectangle 'clear-rectangle-line start end fill))
379 (defun clear-rectangle-line (startcol endcol fill)