Function: avl-tree-stack-first

avl-tree-stack-first is a byte-compiled function defined in avl-tree.el.gz.

Signature

(avl-tree-stack-first AVL-TREE-STACK &optional NILFLAG)

Documentation

Return the first element of AVL-TREE-STACK, without removing it from stack.

Returns nil if the stack is empty, or NILFLAG if specified.
(The latter allows an empty stack to be distinguished from
a null element stored in the AVL tree.)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/avl-tree.el.gz
(defun avl-tree-stack-first (avl-tree-stack &optional nilflag)
  "Return the first element of AVL-TREE-STACK, without removing it from stack.

Returns nil if the stack is empty, or NILFLAG if specified.
\(The latter allows an empty stack to be distinguished from
a null element stored in the AVL tree.)"
  (or (car (avl-tree--stack-store avl-tree-stack))
      nilflag))