Function: x-dnd-find-type

x-dnd-find-type is a byte-compiled function defined in x-dnd.el.gz.

Signature

(x-dnd-find-type TARGET TYPES)

Documentation

Find the type TARGET in an array of types TYPES.

TARGET must be a string, but TYPES can contain either symbols or strings.

Source Code

;; Defined in /usr/src/emacs/lisp/x-dnd.el.gz
(defun x-dnd-find-type (target types)
  "Find the type TARGET in an array of types TYPES.
TARGET must be a string, but TYPES can contain either symbols or
strings."
  (catch 'done
    (dotimes (i (length types))
      (let* ((type (aref types i))
	     (typename (if (symbolp type)
			   (symbol-name type) type)))
	(when (equal target typename)
	  (throw 'done t))))
    nil))