diff options
Diffstat (limited to 'lisp/emacs-lisp/ert-x.el')
| -rw-r--r-- | lisp/emacs-lisp/ert-x.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/ert-x.el b/lisp/emacs-lisp/ert-x.el index ee561d5b953..d09d3ae11e3 100644 --- a/lisp/emacs-lisp/ert-x.el +++ b/lisp/emacs-lisp/ert-x.el @@ -321,7 +321,7 @@ code under test from the behavior of the *Messages* buffer." COLLECTOR will be called with the message before it is passed to the real `message'." (lambda (func &rest args) - (if (or (null args) (equal (car args) "")) + (if (or (null args) (member (car args) '("" nil))) (apply func args) (let ((msg (apply #'format-message args))) (funcall collector (concat msg "\n")) |