/[emacs]/emacs/lisp/rect.el
ViewVC logotype

Diff of /emacs/lisp/rect.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.41 by rms, Fri Apr 19 00:23:08 2002 UTC revision 1.42 by rost, Tue May 7 19:30:21 2002 UTC
# Line 293  on the right side of the rectangle." Line 293  on the right side of the rectangle."
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.
# Line 318  With a prefix (or a FILL) argument, also Line 320  With a prefix (or a FILL) argument, also
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.

Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26