Function: idlwave-class-or-superclass-with-tag

idlwave-class-or-superclass-with-tag is a byte-compiled function defined in idlwave.el.gz.

Signature

(idlwave-class-or-superclass-with-tag CLASS TAG)

Documentation

Find and return the CLASS or one of its superclass with the associated TAG, if any.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/idlwave.el.gz
(defun idlwave-class-or-superclass-with-tag (class tag)
  "Find and return the CLASS or one of its superclass with the
associated TAG, if any."
  (let ((sclasses (cons class (idlwave-all-class-inherits class)))
	cl)
   (catch 'exit
     (while sclasses
       (setq cl (pop sclasses))
       (let ((tags (idlwave-class-tags cl)))
	 (while tags
	   (if (eq t (compare-strings tag 0 nil (car tags) 0 nil t))
	     (throw 'exit cl))
	   (setq tags (cdr tags))))))))