Function: artist-replace-string

artist-replace-string is a byte-compiled function defined in artist.el.gz.

Signature

(artist-replace-string STRING &optional SEE-THRU)

Documentation

Replace contents at point with STRING.

With optional argument SEE-THRU set to non-nil, text in the buffer
"shines thru" blanks in the STRING.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/artist.el.gz
(defsubst artist-replace-string (string &optional see-thru)
  "Replace contents at point with STRING.
With optional argument SEE-THRU set to non-nil, text in the buffer
\"shines thru\" blanks in the STRING."
  (let ((char-list (append string nil))	; convert the string to a list
	(overwrite-mode 'overwrite-mode-textual)
	(fill-column 32765)		; Large :-)
	(blink-matching-paren nil))
    (while char-list
      (let ((c (car char-list)))
	(if (and see-thru (= (artist-get-replacement-char c) ?\s))
	    (artist-move-to-xy (1+ (artist-current-column))
			       (artist-current-line))
	  (artist-replace-char c)))
      (setq char-list (cdr char-list)))))