Lines Matching defs:delete
51 ;; to accumulate them for extract-rectangle and delete-extract-rectangle.
55 ;; `delete-whitespace-rectangle'. `apply-on-rectangle' is used instead. --dv
130 (defun delete-rectangle-line (startcol endcol fill)
132 (delete-region (point)
136 (defun delete-extract-rectangle-line (startcol endcol lines fill)
189 (defun delete-rectangle (start end &optional fill)
199 (apply-on-rectangle 'delete-rectangle-line start end fill))
202 (defun delete-extract-rectangle (start end &optional fill)
210 (apply-on-rectangle 'delete-extract-rectangle-line start end lines fill)
229 You might prefer to use `delete-extract-rectangle' from a program.
241 (setq killed-rectangle (delete-extract-rectangle start end fill))
299 (defun delete-whitespace-rectangle-line (startcol endcol fill)
302 (delete-region (point) (progn (skip-syntax-forward " ") (point))))))
305 (defalias 'close-rectangle 'delete-whitespace-rectangle) ;; Old name
308 (defun delete-whitespace-rectangle (start end &optional fill)
317 (apply-on-rectangle 'delete-whitespace-rectangle-line start end fill))
324 (defun string-rectangle-line (startcol endcol string delete)
326 (if delete
327 (delete-rectangle-line startcol endcol nil))
356 This command does not delete or overwrite any existing text."
384 (delete-region (point) pt)
389 (delete-region pt (point))