diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-09-10 21:43:07 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-09-10 21:43:07 -0400 |
| commit | 346755408a585e03e507ec9e9df37ac883eed4ee (patch) | |
| tree | e82b5c50a993fcaebd60a875e6948705103eb5e8 /lisp/profiler.el | |
| parent | 93ef404dc95f947e1c48000a46968fd252781b9d (diff) | |
| download | emacs-346755408a585e03e507ec9e9df37ac883eed4ee.tar.gz | |
* lisp/profiler.el (profiler-calltree-find): Use function-equal.
Diffstat (limited to 'lisp/profiler.el')
| -rw-r--r-- | lisp/profiler.el | 3 |
1 files changed, 1 insertions, 2 deletions
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)) |