[nongnu] externals/sly 5114fc2 1/7: Fix #346: Fix error when complex comint-preoutput-filter-functions

[Stefan Monnier]

branch: externals/sly
commit 5114fc2f27e2528361bf793cbbf7c3cce04067ed
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    Fix #346: Fix error when complex comint-preoutput-filter-functions
    
    * contrib/sly-mrepl.el (sly-mrepl--insert-output): Use
    run-hook-wrapped.
---
 contrib/sly-mrepl.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/contrib/sly-mrepl.el b/contrib/sly-mrepl.el
index 692b6b3..90c1397 100644
--- a/contrib/sly-mrepl.el
+++ b/contrib/sly-mrepl.el
@@ -386,9 +386,11 @@ In that case, moving a sexp backward does nothing."
                                'font-lock-face face))
              (setq sly-mrepl--pending-output nil)
              (unless nofilters
-               (mapc (lambda (fn)
-                       (setq string (funcall fn string)))
-                     sly-mrepl-output-filter-functions))
+               (run-hook-wrapped
+                'sly-mrepl-output-filter-functions
+                (lambda (fn)
+                  (setq string (funcall fn string))
+                  nil)))
              (insert-before-markers string)
              (cond ((and (not (zerop (current-column)))
                          (sly-mrepl--break-output-p (point)))