Function: mh-thread-ancestor-p

mh-thread-ancestor-p is a byte-compiled function defined in mh-thread.el.gz.

Signature

(mh-thread-ancestor-p ANCESTOR SUCCESSOR)

Documentation

Return t if ANCESTOR is really an ancestor of SUCCESSOR and nil otherwise.

In the limit, the function returns t if ANCESTOR and SUCCESSOR are the same containers.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-thread.el.gz
(defun mh-thread-ancestor-p (ancestor successor)
  "Return t if ANCESTOR is really an ancestor of SUCCESSOR and nil otherwise.
In the limit, the function returns t if ANCESTOR and SUCCESSOR
are the same containers."
  (cl-block nil
    (while successor
      (when (eq ancestor successor) (cl-return t))
      (setq successor (mh-container-parent successor)))
    nil))