Function: srecode-overlaid-at-point

srecode-overlaid-at-point is a byte-compiled function defined in fields.el.gz.

Signature

(srecode-overlaid-at-point CLASS)

Documentation

Return a list of overlaid fields of type CLASS at point.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/srecode/fields.el.gz
(defun srecode-overlaid-at-point (class)
  "Return a list of overlaid fields of type CLASS at point."
  (let ((ol (overlays-at (point)))
	(ret nil))
    (while ol
      (let ((tmp (overlay-get (car ol) 'srecode)))
	(when (and tmp (object-of-class-p tmp class))
	  (setq ret (cons tmp ret))))
      (setq ol (cdr ol)))
    (car (nreverse ret))))