From 55496af138745cd6810db0de0f05ae3662230cc9 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 30 Apr 2015 21:18:52 -0400 Subject: [PATCH] * lisp/emacs-lisp/ert.el (ert--special-operator-p): Update for 2015-02-08 change to indirect-function. --- lisp/emacs-lisp/ert.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el index 4ffd8cd8558..384fef546ae 100644 --- a/lisp/emacs-lisp/ert.el +++ b/lisp/emacs-lisp/ert.el @@ -269,7 +269,7 @@ DATA is displayed to the user and should state the reason for skipping." (defun ert--special-operator-p (thing) "Return non-nil if THING is a symbol naming a special operator." (and (symbolp thing) - (let ((definition (indirect-function thing t))) + (let ((definition (ignore-errors (indirect-function thing)))) (and (subrp definition) (eql (cdr (subr-arity definition)) 'unevalled))))) -- 2.39.2