Function: table--min-coord-list

table--min-coord-list is a byte-compiled function defined in table.el.gz.

Signature

(table--min-coord-list COORD-LIST)

Documentation

Return minimum cell dimension of COORD-LIST.

COORD-LIST is a list of coordinate pairs (lu-coord . rb-coord), where each pair in the list represents a cell. lu-coord is the left upper coordinate of a cell and rb-coord is the right bottom coordinate of a cell. A coordinate is a pair of x and y axis coordinate values. The return value is a cons cell (min-w . min-h), where min-w and min-h are respectively the minimum width and the minimum height of all the cells in the list.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/table.el.gz
(defun table--min-coord-list (coord-list)
  "Return minimum cell dimension of COORD-LIST.
COORD-LIST is a list of coordinate pairs (lu-coord . rb-coord), where
each pair in the list represents a cell.  lu-coord is the left upper
coordinate of a cell and rb-coord is the right bottom coordinate of a
cell.  A coordinate is a pair of x and y axis coordinate values.  The
return value is a cons cell (min-w . min-h), where min-w and min-h are
respectively the minimum width and the minimum height of all the cells
in the list."
  (if (null coord-list) nil
    (let ((min-width 134217727)
	  (min-height 134217727))
      (while coord-list
	(let* ((coord (prog1 (car coord-list) (setq coord-list (cdr coord-list))))
	       (width (- (cadr coord) (caar coord)))
	       (height (1+ (- (cddr coord) (cdar coord)))))
	  (if (< width min-width) (setq min-width width))
	  (if (< height min-height) (setq min-height height))))
      (cons min-width min-height))))