Function: artist-draw-region-trim-line-endings

artist-draw-region-trim-line-endings is a byte-compiled function defined in artist.el.gz.

Signature

(artist-draw-region-trim-line-endings MIN-Y MAX-Y)

Documentation

Trim lines in current draw-region from MIN-Y to MAX-Y.

Trimming here means removing white space at end of a line.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/artist.el.gz
(defun artist-draw-region-trim-line-endings (min-y max-y)
  "Trim lines in current draw-region from MIN-Y to MAX-Y.
Trimming here means removing white space at end of a line."
  ;; Safety check: switch min-y and max-y if max-y is smaller
  (if (< max-y min-y)
      (let ((tmp min-y))
	(setq min-y max-y)
	(setq max-y tmp)))
  (save-excursion
    (let ((curr-y min-y))
      (while (<= curr-y max-y)
	(artist-move-to-xy 0 curr-y)
	(end-of-line)
	(delete-horizontal-space)
	(setq curr-y (1+ curr-y))))))