From 55f2168dd4ecd0ff197d5b3d5162cd276a47202d Mon Sep 17 00:00:00 2001 From: Robin Templeton Date: Sun, 21 Sep 2014 03:55:11 -0400 Subject: [PATCH] don't use function-equal in nadvice * lisp/emacs-lisp/nadvice.el (advice--set-buffer-local): Use `equal' instead of `function-equal'. --- lisp/emacs-lisp/nadvice.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- 2.20.1