From: Stefan Monnier Date: Wed, 11 Sep 2013 01:43:07 +0000 (-0400) Subject: * lisp/profiler.el (profiler-calltree-find): Use function-equal. X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1662^2~50 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=346755408a585e03e507ec9e9df37ac883eed4ee;p=emacs.git * lisp/profiler.el (profiler-calltree-find): Use function-equal. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 32ea5e72efd..135145fe7fc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2013-09-11 Stefan Monnier + + * profiler.el (profiler-calltree-find): Use function-equal. + 2013-09-10 Glenn Morris * files.el (interpreter-mode-alist): Convert to regexps. diff --git a/lisp/profiler.el b/lisp/profiler.el index 609a0308cf0..93ab10015ea 100644 --- a/lisp/profiler.el +++ b/lisp/profiler.el @@ -256,10 +256,9 @@ Optional argument MODE means only check for the specified mode (cpu or mem)." (defun profiler-calltree-find (tree entry) "Return a child tree of ENTRY under TREE." (let (result (children (profiler-calltree-children tree))) - ;; FIXME: Use `assoc'. (while (and children (null result)) (let ((child (car children))) - (when (equal (profiler-calltree-entry child) entry) + (when (function-equal (profiler-calltree-entry child) entry) (setq result child)) (setq children (cdr children)))) result))