procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
Update for 2015-02-08 change to indirect-function.
This commit is contained in:
Glenn Morris 2015-04-30 21:18:52 -04:00
parent 31c57b40c8
commit 55496af138
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/ert.el
View file

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