Function: comp-func-unique-in-cu-p

comp-func-unique-in-cu-p is a byte-compiled function defined in comp.el.gz.

Signature

(comp-func-unique-in-cu-p FUNC)

Documentation

Return t if FUNC is known to be unique in the current compilation unit.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/comp.el.gz
(defun comp-func-unique-in-cu-p (func)
  "Return t if FUNC is known to be unique in the current compilation unit."
  (if (symbolp func)
      (cl-loop with h = (make-hash-table :test #'eq)
               for f being the hash-value in (comp-ctxt-funcs-h comp-ctxt)
               for name = (comp-func-name f)
               when (gethash name h)
                 return nil
               do (puthash name t h)
               finally return t)
    t))