Function: f-descendant-of-p

f-descendant-of-p is a byte-compiled function defined in f.el.

Signature

(f-descendant-of-p PATH-A PATH-B)

Documentation

Return t if PATH-A is desendant of PATH-B.

Aliases

f-descendant-of?

Source Code

;; Defined in ~/.emacs.d/elpa/f-20241003.1131/f.el
(defun f-descendant-of-p (path-a path-b)
  "Return t if PATH-A is desendant of PATH-B."
  (unless (f-same-p path-a path-b)
    (let ((path-a (f-split (f-full path-a)))
          (path-b (f-split (f-full path-b)))
          (parent-p t))
      (while (and path-b parent-p)
        (if (string= (car path-a) (car path-b))
            (setq path-a (cdr path-a)
                  path-b (cdr path-b))
          (setq parent-p nil)))
      parent-p)))