From 346755408a585e03e507ec9e9df37ac883eed4ee Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 10 Sep 2013 21:43:07 -0400 Subject: [PATCH] * lisp/profiler.el (profiler-calltree-find): Use function-equal. --- lisp/ChangeLog | 4 ++++ lisp/profiler.el | 3 +-- 2 files changed, 5 insertions(+), 2 deletions(-) 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)) -- 2.39.2