diff options
author | Robin Templeton <[email protected]> | 2014-06-30 03:41:57 -0400 |
---|---|---|
committer | Robin Templeton <[email protected]> | 2015-04-18 18:49:06 -0400 |
commit | a6a5c5be925fe27284f2381ee0a721999a718c04 (patch) | |
tree | d094c61f003618634cf46e32c8c8aa1513f8e0db /lisp | |
parent | b782773b44634aa94bdcdb356ffee9c434003ac9 (diff) |
remove suspicious object checking
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/subr.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index a0c56bf975..306c338390 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -4333,7 +4333,6 @@ lookup sequence then continues." ;; Don't use letrec, because equal (in add/remove-hook) would get trapped ;; in a cycle. (fset clearfun - (suspicious-object (lambda () (with-demoted-errors "set-transient-map PCH: %S" (unless (cond @@ -4360,7 +4359,7 @@ lookup sequence then continues." ;; Comment out the fset if you want to debug the GC bug. ;;; (fset clearfun nil) ;;; (set clearfun nil) - ))))) + )))) (add-hook 'pre-command-hook clearfun) (internal-push-keymap map 'overriding-terminal-local-map))) |