Function: version-list-not-zero

version-list-not-zero is a byte-compiled function defined in subr.el.gz.

Signature

(version-list-not-zero LST)

Documentation

Return the first non-zero element of LST, which is a list of integers.

If all LST elements are zeros or LST is nil, return zero.

Source Code

;; Defined in /usr/src/emacs/lisp/subr.el.gz
(defun version-list-not-zero (lst)
  "Return the first non-zero element of LST, which is a list of integers.

If all LST elements are zeros or LST is nil, return zero."
  (declare (pure t) (side-effect-free t))
  (while (and lst (zerop (car lst)))
    (setq lst (cdr lst)))
  (if lst
      (car lst)
    ;; there is no element different of zero
    0))