Update a use of ansi-color-apply-on-region

Account for the `PRESERVER-SEQUENCES` argument in Emacs >= 28.1.

* jupyter-mime.el (jupyter--ansi-color-apply-on-region): New function.
(jupyter-ansi-color-apply-on-region): Use it.

jupyter-mime.el

@@ -197,6 +197,26 @@ function."
 
 ;;; Special handling of ANSI sequences
 
+(defalias 'jupyter--ansi-color-apply-on-region
+ (if (version< emacs-version "28.1")
+ (lambda (begin end)
+ (cl-letf (((symbol-function #'delete-and-extract-region)
+ (lambda (beg end)
+ (add-text-properties beg end '(invisible t jupyter-invisible t))
+ (buffer-substring beg end))))
+ (ansi-color-apply-on-region begin end)))
+ (lambda (begin end)
+ (ansi-color-apply-on-region begin end t)
+ (dolist (ov (overlays-in begin end))
+ (when (and (overlay-get ov 'invisible)
+ (<= begin (overlay-start ov)
+ (overlay-end ov) end))
+ ;; Assume invisible overlay added by
+ ;; `ansi-color-apply-on-region'.
+ (add-text-properties (overlay-start ov) (overlay-end ov)
+ '(invisible t jupyter-invisible t))
+ (delete-overlay ov))))))
+
 (defun jupyter-ansi-color-apply-on-region (begin end &optional face-prop)
  "`ansi-color-apply-on-region' with Jupyter specific modifications.
 In particular, does not delete escape sequences between BEGIN and
@@ -218,10 +238,7 @@ invisible property by adding it to `char-property-alias-alist'."
  (setq face (list face))
  (font-lock-prepend-text-property beg end 'face face)
  (put-text-property beg end (or face-prop 'font-lock-face) face)))))
- (cl-letf (((symbol-function #'delete-region)
- (lambda (beg end)
- (add-text-properties beg end '(invisible t jupyter-invisible t)))))
- (ansi-color-apply-on-region begin end))))
+ (jupyter--ansi-color-apply-on-region begin end)))
 
 ;;; `jupyter-insert' method