Function: speedbar-generic-list-group-p

speedbar-generic-list-group-p is a byte-compiled function defined in speedbar.el.gz.

Signature

(speedbar-generic-list-group-p SUBLST)

Documentation

Non-nil if SUBLST is a group.

Groups may optionally contain a position.

Source Code

;; Defined in /usr/src/emacs/lisp/speedbar.el.gz
;;; Generic List support
;;
;;  Generic lists are hierarchies of tags which we may need to permute
;;  in order to make it look nice.
;;
;;  A generic list is of the form:
;;  ( ("name" . marker-or-number)                <-- one tag at this level
;;    ("name" marker-or-number goto-fun . args)  <-- one tag at this level
;;    ("name" ("name" . mon) ("name" . mon) )    <-- one group of tags
;;    ("name" mon ("name" . mon) )               <-- group w/ a position and tags
(defun speedbar-generic-list-group-p (sublst)
  "Non-nil if SUBLST is a group.
Groups may optionally contain a position."
  (and (stringp (car-safe sublst))
       (or (and (listp (cdr-safe sublst))
		(or (speedbar-generic-list-tag-p (car-safe (cdr-safe sublst)))
		    (speedbar-generic-list-group-p (car-safe (cdr-safe sublst))
						   )))
	   (and (number-or-marker-p (car-safe (cdr-safe sublst)))
		(listp (cdr-safe (cdr-safe sublst)))
		(speedbar-generic-list-tag-p
		 (car-safe (cdr-safe (cdr-safe sublst)))))
	   )))