293 |
(unless (= (point) (point-at-eol)) |
(unless (= (point) (point-at-eol)) |
294 |
(delete-region (point) (progn (skip-syntax-forward " ") (point)))))) |
(delete-region (point) (progn (skip-syntax-forward " ") (point)))))) |
295 |
|
|
296 |
;;;###autoload (defalias 'close-rectangle 'delete-whitespace-rectangle) ;; Old name |
;;;###autoload |
297 |
|
(defalias 'close-rectangle 'delete-whitespace-rectangle) ;; Old name |
298 |
|
|
299 |
;;;###autoload |
;;;###autoload |
300 |
(defun delete-whitespace-rectangle (start end &optional fill) |
(defun delete-whitespace-rectangle (start end &optional fill) |
301 |
"Delete all whitespace following a specified column in each line. |
"Delete all whitespace following a specified column in each line. |
320 |
(insert string)) |
(insert string)) |
321 |
|
|
322 |
;;;###autoload |
;;;###autoload |
|
|
|
323 |
(defun string-rectangle (start end string) |
(defun string-rectangle (start end string) |
324 |
"Replace rectangle contents with STRING on each line. |
"Replace rectangle contents with STRING on each line. |
325 |
The length of STRING need not be the same as the rectangle width. |
The length of STRING need not be the same as the rectangle width. |