comparison lisp/rect.el @ 22369:6c4756ecd4a2

(string-rectangle-line): Delete the rectangle first. (string-rectangle): Doc fix.

22368:c3a15ab5924f

;; to string-rectangle-line.
(defvar string-rectangle-string)

;;;###autoload
(defun string-rectangle (start end string)
  "Insert STRING on each line of the region-rectangle, shifting text right.
The left edge of the rectangle specifies the column for insertion.
This command does not delete or overwrite any existing text.

Called from a program, takes three args; START, END and STRING."
  (interactive "r\nsString rectangle: ")
  (let ((string-rectangle-string string))
    (operate-on-rectangle 'string-rectangle-line start end t)))

(defun string-rectangle-line (startpos begextra endextra)
  (let (whitespace)
    (goto-char startpos)
    ;; Compute horizontal width of following whitespace.
    (let ((ocol (current-column)))
      (skip-chars-forward " \t")
      (setq whitespace (- (current-column) ocol)))
    ;; Delete the following whitespace.

22369:6c4756ecd4a2

;; to string-rectangle-line.
(defvar string-rectangle-string)

;;;###autoload
(defun string-rectangle (start end string)
  "Replace rectangle contents with STRING on each line.
The length of STRING need not be the same as the rectangle width.

Called from a program, takes three args; START, END and STRING."
  (interactive "r\nsString rectangle: ")
  (let ((string-rectangle-string string))
    (operate-on-rectangle 'string-rectangle-line start end t)))

(defun string-rectangle-line (startpos begextra endextra)
  (let (whitespace)
    ;; Delete the width of the rectangle.
    (delete-region startpos (point))
    ;; Compute horizontal width of following whitespace.
    (let ((ocol (current-column)))
      (skip-chars-forward " \t")
      (setq whitespace (- (current-column) ocol)))
    ;; Delete the following whitespace.