Function: table--put-cell-property

table--put-cell-property is a byte-compiled function defined in table.el.gz.

Signature

(table--put-cell-property CELL)

Documentation

Put standard text properties to the CELL.

The CELL is a cons cell (left-upper . right-bottom) where the left-upper is the position before the cell's left upper corner character, the right-bottom is the position after the cell's right bottom corner character.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/table.el.gz
(defun table--put-cell-property (cell)
  "Put standard text properties to the CELL.
The CELL is a cons cell (left-upper . right-bottom) where the
left-upper is the position before the cell's left upper corner
character, the right-bottom is the position after the cell's right
bottom corner character."
  (let ((lu (table--get-coordinate (car cell)))
	(rb (table--get-coordinate (cdr cell))))
    (save-excursion
      (while (<= (cdr lu) (cdr rb))
	(let ((beg (table--goto-coordinate lu 'no-extension))
	      (end (table--goto-coordinate (cons (car rb) (cdr lu)))))
	  (table--put-cell-line-property beg end))
	(setcdr lu (1+ (cdr lu))))
      (table--put-cell-justify-property cell table-cell-info-justify)
      (table--put-cell-valign-property cell table-cell-info-valign))))