Function: newsticker--treeview-get-prev-uncle

newsticker--treeview-get-prev-uncle is a byte-compiled function defined in newst-treeview.el.gz.

Signature

(newsticker--treeview-get-prev-uncle NODE)

Documentation

Get previous uncle of NODE, i.e. parent's previous sibling.

Source Code

;; Defined in /usr/src/emacs/lisp/net/newst-treeview.el.gz
(defun newsticker--treeview-get-prev-uncle (node)
  "Get previous uncle of NODE, i.e. parent's previous sibling."
  (let* ((parent (widget-get node :parent))
         (grand-parent (widget-get parent :parent)))
    (catch 'found
      (let ((uncles (widget-get grand-parent :children))
            (prev nil))
        (while uncles
          (if (newsticker--treeview-nodes-eq (car uncles) parent)
              (throw 'found prev))
          (setq prev (car uncles))
          (setq uncles (cdr uncles)))))))