From: Robin Templeton <robin@terpri.org>
Date: Sun, 21 Sep 2014 07:55:11 +0000 (-0400)
Subject: don't use function-equal in nadvice
X-Git-Url: http://git.hcoop.net/bpt/emacs.git/commitdiff_plain/55f2168dd4ecd0ff197d5b3d5162cd276a47202d

don't use function-equal in nadvice

* lisp/emacs-lisp/nadvice.el (advice--set-buffer-local): Use `equal'
  instead of `function-equal'.
---

diff --git a/lisp/emacs-lisp/nadvice.el b/lisp/emacs-lisp/nadvice.el
index aac0246cff..02535ea627 100644
--- a/lisp/emacs-lisp/nadvice.el
+++ b/lisp/emacs-lisp/nadvice.el
@@ -242,7 +242,7 @@ them, we keep a sample here against which to compare.  Each instance is
 different, but `function-equal' will hopefully ignore those differences.")
 
 (defun advice--set-buffer-local (var val)
-  (if (function-equal val advice--buffer-local-function-sample)
+  (if (equal val advice--buffer-local-function-sample)
       (kill-local-variable var)
     (set (make-local-variable var) val)))