mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-07 15:21:46 +00:00
Code Issues Releases Activity

* lisp/profiler.el (profiler-calltree-find): Use function-equal.

Browse Source
This commit is contained in:
Stefan Monnier 2013-09-10 21:43:07 -04:00
parent 93ef404dc9
commit 346755408a
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2013-09-11 Stefan Monnier <monnier@iro.umontreal.ca>
* profiler.el (profiler-calltree-find): Use function-equal.
2013-09-10 Glenn Morris <rgm@gnu.org>
* files.el (interpreter-mode-alist): Convert to regexps.

3
lisp/profiler.el
View File

@ -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))