Function: table--uniform-list-p

table--uniform-list-p is a byte-compiled function defined in table.el.gz.

Signature

(table--uniform-list-p L)

Documentation

Return nil when LIST contains non equal elements. Otherwise return t.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/table.el.gz
(defun table--uniform-list-p (l)
  "Return nil when LIST contains non equal elements.  Otherwise return t."
  (if (null l) t
    (catch 'end
      (while (cdr l)
	(if (not (equal (car l) (cadr l))) (throw 'end nil))
	(setq l (cdr l)))
      t)))