Function: gnus-topic-next-topic

gnus-topic-next-topic is a byte-compiled function defined in gnus-topic.el.gz.

Signature

(gnus-topic-next-topic TOPIC &optional PREVIOUS)

Documentation

Return the next sibling of TOPIC.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-topic.el.gz
(defun gnus-topic-next-topic (topic &optional previous)
  "Return the next sibling of TOPIC."
  (let ((parentt (cddr (gnus-topic-find-topology
			(gnus-topic-parent-topic topic))))
	prev)
    (while (and parentt
		(not (equal (caaar parentt) topic)))
      (setq prev (caaar parentt)
	    parentt (cdr parentt)))
    (if previous
	prev
      (caaadr parentt))))