Function: chart-deface-rectangle

chart-deface-rectangle is a byte-compiled function defined in chart.el.gz.

Signature

(chart-deface-rectangle DIR R1 R2 FACE)

Documentation

Colorize a rectangle in direction DIR across range R1 by range R2.

R1 and R2 are dotted pairs. Colorize it with FACE.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/chart.el.gz
(defun chart-deface-rectangle (dir r1 r2 face)
  "Colorize a rectangle in direction DIR across range R1 by range R2.
R1 and R2 are dotted pairs.  Colorize it with FACE."
  (let* ((range1 (if (eq dir 'vertical) r1 r2))
	 (range2 (if (eq dir 'vertical) r2 r1))
	 (y (car range2)))
    (while (<= y (cdr range2))
      (chart-goto-xy (car range1) y)
      (put-text-property (point) (+ (point) (1+ (- (cdr range1) (car range1))))
			 'face face)
      (setq y (1+ y)))))