diff options
| author | Robin Templeton <[email protected]> | 2014-09-21 03:55:11 -0400 |
|---|---|---|
| committer | Robin Templeton <[email protected]> | 2015-04-20 00:29:03 -0400 |
| commit | 55f2168dd4ecd0ff197d5b3d5162cd276a47202d (patch) | |
| tree | c43008a8ff39bca17664fd051db6a19b28f0f553 | |
| parent | e94492d5947d64860f1cdfa7f3dc1c6aa7d29acb (diff) | |
don't use function-equal in nadvice
* lisp/emacs-lisp/nadvice.el (advice--set-buffer-local): Use `equal'
instead of `function-equal'.
| -rw-r--r-- | lisp/emacs-lisp/nadvice.el | 2 |
1 files changed, 1 insertions, 1 deletions
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))) |