[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 55496af: * lisp/emacs-lisp/ert.el (ert--special-ope
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master 55496af: * lisp/emacs-lisp/ert.el (ert--special-operator-p): |
Date: |
Fri, 01 May 2015 01:19:01 +0000 |
branch: master
commit 55496af138745cd6810db0de0f05ae3662230cc9
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
* 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 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el
index 4ffd8cd..384fef5 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)))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 55496af: * lisp/emacs-lisp/ert.el (ert--special-operator-p):,
Glenn Morris <=