[Emacs-diffs] trunk r114196: * lisp/profiler.el (profiler-calltree-find): Use function-equal.

[Stefan Monnier]

------------------------------------------------------------
revno: 114196
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2013-09-10 21:43:07 -0400
message:
  * lisp/profiler.el (profiler-calltree-find): Use function-equal.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/profiler.el               profiler.el-20120822062536-8tk8gghazaoi1nyq-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-09-10 20:38:52 +0000
+++ b/lisp/ChangeLog    2013-09-11 01:43:07 +0000
@@ -1,3 +1,7 @@
+2013-09-11  Stefan Monnier  <address@hidden>
+
+       * profiler.el (profiler-calltree-find): Use function-equal.
+
 2013-09-10  Glenn Morris  <address@hidden>
 
        * files.el (interpreter-mode-alist): Convert to regexps.

=== modified file 'lisp/profiler.el'
--- a/lisp/profiler.el  2013-06-21 00:53:33 +0000
+++ b/lisp/profiler.el  2013-09-11 01:43:07 +0000
@@ -256,10 +256,9 @@
 (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))