Function: calc-substack-height

calc-substack-height is a byte-compiled function defined in calc.el.gz.

Signature

(calc-substack-height N)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc.el.gz
(defun calc-substack-height (n)
  (let ((sum 0)
	(stack calc-stack))
    (setq n (+ n calc-stack-top))
    (while (and (> n 0) stack)
      (setq sum (+ sum (nth 1 (car stack)))
	    n (1- n)
	    stack (cdr stack)))
    sum))