diff options
| author | Glenn Morris | 2015-05-01 08:29:18 -0700 |
|---|---|---|
| committer | Glenn Morris | 2015-05-01 08:29:18 -0700 |
| commit | b0481de73be9fb7c4839340de2b494f19041130a (patch) | |
| tree | ebe3bd4c1d6a824ebba0a6321bb607f79dde5b89 /lisp | |
| parent | 9b909c4265e9c0394fdb7a12d9dcdc545395078c (diff) | |
| download | emacs-b0481de73be9fb7c4839340de2b494f19041130a.tar.gz emacs-b0481de73be9fb7c4839340de2b494f19041130a.zip | |
* lisp/emacs-lisp/ert.el (ert--special-operator-p): Fix previous.
Diffstat (limited to 'lisp')
| -rw-r--r-- | 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 384fef546ae..8dc8261365f 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." | |||
| 269 | (defun ert--special-operator-p (thing) | 269 | (defun ert--special-operator-p (thing) |
| 270 | "Return non-nil if THING is a symbol naming a special operator." | 270 | "Return non-nil if THING is a symbol naming a special operator." |
| 271 | (and (symbolp thing) | 271 | (and (symbolp thing) |
| 272 | (let ((definition (ignore-errors (indirect-function thing)))) | 272 | (let ((definition (indirect-function thing))) |
| 273 | (and (subrp definition) | 273 | (and (subrp definition) |
| 274 | (eql (cdr (subr-arity definition)) 'unevalled))))) | 274 | (eql (cdr (subr-arity definition)) 'unevalled))))) |
| 275 | 275 | ||