diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-05-17 10:09:48 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-05-17 10:09:58 +0200 |
| commit | 90dccb0f00f684f63ab117a826a88a8e939b212b (patch) | |
| tree | cf0b4ce1622cecd3fdc09d99d6335892a6ee58c0 /lisp/emacs-lisp | |
| parent | 803041e01474f2a522170c9f388068e8460be2ae (diff) | |
| download | emacs-90dccb0f00f684f63ab117a826a88a8e939b212b.tar.gz emacs-90dccb0f00f684f63ab117a826a88a8e939b212b.tar.bz2 emacs-90dccb0f00f684f63ab117a826a88a8e939b212b.zip | |
Fix edebug-tests test failure after prin1 change
* lisp/emacs-lisp/ert-x.el (ert--make-print-advice): Fix test
failures in edebug-tests.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/ert-x.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/ert-x.el b/lisp/emacs-lisp/ert-x.el index c42ce09a1c7..6fe1ade7a06 100644 --- a/lisp/emacs-lisp/ert-x.el +++ b/lisp/emacs-lisp/ert-x.el @@ -338,7 +338,8 @@ unless the output is going to the echo area (when PRINTCHARFUN is t or PRINTCHARFUN is nil and `standard-output' is t). If the output is destined for the echo area, the advice function will convert it to a string and pass it to COLLECTOR first." - (lambda (func object &optional printcharfun) + ;;; FIXME: Pass on OVERRIDES. + (lambda (func object &optional printcharfun _overrides) (if (not (eq t (or printcharfun standard-output))) (funcall func object printcharfun) (funcall collector (with-output-to-string |