Function: speedbar-simple-group-tag-hierarchy

speedbar-simple-group-tag-hierarchy is a byte-compiled function defined in speedbar.el.gz.

Signature

(speedbar-simple-group-tag-hierarchy LST)

Documentation

Create a simple Tags group with orphaned tags.

Argument LST is the list of tags to sort into groups.

Source Code

;; Defined in /usr/src/emacs/lisp/speedbar.el.gz
(defun speedbar-simple-group-tag-hierarchy (lst)
  "Create a simple `Tags' group with orphaned tags.
Argument LST is the list of tags to sort into groups."
  (let ((newlst nil)
	(sublst nil))
    (while lst
      (if (speedbar-generic-list-group-p (car-safe lst))
	  (setq newlst (cons (car lst) newlst))
	(setq sublst (cons (car lst) sublst)))
      (setq lst (cdr lst)))
    (if (not newlst)
	(nreverse sublst)
      (setq newlst (cons (cons "Tags" (nreverse sublst)) newlst))
      (nreverse newlst))))