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): Fix previous.

Browse source
This commit is contained in:
Glenn Morris 2015-05-01 08:29:18 -07:00
parent 9b909c4265
commit b0481de73b
1 changed files with 1 additions and 1 deletions
Show stats 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 (ignore-errors (indirect-function thing))))
(let ((definition (indirect-function thing)))
(and (subrp definition)
(eql (cdr (subr-arity definition)) 'unevalled)))))