aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMarkus Rost2002-05-07 19:30:21 +0000
committerMarkus Rost2002-05-07 19:30:21 +0000
commitb3a4edce1f0de03d19e7bf78a6df02542080f86f (patch)
tree2392c6bd1c4b38c5a96d16347a9e7c26f4fe9494
parent125d5ec7081f3b8e47b53f084509d6ce30b16664 (diff)
downloademacs-b3a4edce1f0de03d19e7bf78a6df02542080f86f.tar.gz
emacs-b3a4edce1f0de03d19e7bf78a6df02542080f86f.zip
(close-rectangle): Don't hide it behind the autoload-cookie.
-rw-r--r--lisp/rect.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/rect.el b/lisp/rect.el
index 4d6da37a286..dd674a07bbb 100644
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -293,7 +293,9 @@ on the right side of the rectangle."
293 (unless (= (point) (point-at-eol)) 293 (unless (= (point) (point-at-eol))
294 (delete-region (point) (progn (skip-syntax-forward " ") (point)))))) 294 (delete-region (point) (progn (skip-syntax-forward " ") (point))))))
295 295
296;;;###autoload (defalias 'close-rectangle 'delete-whitespace-rectangle) ;; Old name 296;;;###autoload
297(defalias 'close-rectangle 'delete-whitespace-rectangle) ;; Old name
298
297;;;###autoload 299;;;###autoload
298(defun delete-whitespace-rectangle (start end &optional fill) 300(defun delete-whitespace-rectangle (start end &optional fill)
299 "Delete all whitespace following a specified column in each line. 301 "Delete all whitespace following a specified column in each line.
@@ -318,7 +320,6 @@ With a prefix (or a FILL) argument, also fill too short lines."
318 (insert string)) 320 (insert string))
319 321
320;;;###autoload 322;;;###autoload
321
322(defun string-rectangle (start end string) 323(defun string-rectangle (start end string)
323 "Replace rectangle contents with STRING on each line. 324 "Replace rectangle contents with STRING on each line.
324The length of STRING need not be the same as the rectangle width. 325The length of STRING need not be the same as the rectangle width.