Function: math-ident-row-p

math-ident-row-p is a byte-compiled function defined in calc-ext.el.gz.

Signature

(math-ident-row-p ROW N &optional A)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-ext.el.gz
(defun math-ident-row-p (row n &optional a)
  (unless a
    (setq a 1))
  (and
   (not (memq nil (mapcar
                   (lambda (x) (eq x 0))
                   (nthcdr (1+ n) row))))
   (not (memq nil (mapcar
                   (lambda (x) (eq x 0))
                   (butlast
                    (cdr row)
                    (- (length row) n)))))
   (eq (elt row n) a)))