Function: proced-filter-parents

proced-filter-parents is a byte-compiled function defined in proced.el.gz.

Signature

(proced-filter-parents PROCESS-ALIST PID &optional OMIT-PID)

Documentation

For PROCESS-ALIST return list of parent processes of PID.

This list includes PID unless OMIT-PID is non-nil.

Source Code

;; Defined in /usr/src/emacs/lisp/proced.el.gz
(defun proced-filter-parents (process-alist pid &optional omit-pid)
  "For PROCESS-ALIST return list of parent processes of PID.
This list includes PID unless OMIT-PID is non-nil."
  (let ((parent-list (unless omit-pid (list (assq pid process-alist))))
        (process (assq pid process-alist))
        ppid)
    (while (and (setq ppid (cdr (assq 'ppid (cdr process))))
                ;; Ignore a PPID that equals PID.
                (/= ppid pid)
                ;; Accept only PPIDs that correspond to members in PROCESS-ALIST.
                (setq process (assq ppid process-alist)))
      (setq pid ppid)
      (push process parent-list))
    parent-list))