From: Glenn Morris <rgm@gnu.org>
Date: Fri, 1 May 2015 01:18:52 +0000 (-0400)
Subject: * lisp/emacs-lisp/ert.el (ert--special-operator-p):
X-Git-Tag: emacs-25.0.90~2236
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=55496af138745cd6810db0de0f05ae3662230cc9;p=emacs.git

* lisp/emacs-lisp/ert.el (ert--special-operator-p):

Update for 2015-02-08 change to indirect-function.
---

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)))))