Function: function-equal

function-equal is a function defined in profiler.c.

Signature

(function-equal F1 F2)

Documentation

Return non-nil if F1 and F2 come from the same source.

Used to determine if different closures are just different instances of the same lambda expression, or are really unrelated function.

Source Code

// Defined in /usr/src/emacs/src/profiler.c
{
  bool res;
  if (EQ (f1, f2))
    res = true;
  else if (CLOSUREP (f1) && CLOSUREP (f2))
    res = EQ (AREF (f1, CLOSURE_CODE), AREF (f2, CLOSURE_CODE));
  else
    res = false;
  return res ? Qt : Qnil;
}