Function: idlwave-any-syslib

idlwave-any-syslib is a byte-compiled function defined in idlwave.el.gz.

Signature

(idlwave-any-syslib ENTRIES)

Documentation

Does the entry list ENTRIES contain a syslib entry? If yes, return the index (>=1).

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/idlwave.el.gz
(defun idlwave-any-syslib (entries)
  "Does the entry list ENTRIES contain a syslib entry?
If yes, return the index (>=1)."
  (let (file (cnt 0))
    (catch 'exit
      (while entries
	(cl-incf cnt)
	(setq file (idlwave-routine-source-file (nth 3 (car entries))))
	(if (and file (idlwave-syslib-p file))
	    (throw 'exit cnt)
	  (setq entries (cdr entries))))
      nil)))