debug

Author: nnicandro

jupyter-mime.el

@@ -212,16 +212,16 @@ a value of t.  This is mainly for modes like `org-mode' which
 strip invisible properties during fontification.  In such cases,
 the jupyter-invisible property can act as an alias to the
 invisible property by adding it to `char-property-alias-alist'."
-  (cl-letf (((symbol-function #'delete-region)
-             (lambda (beg end)
-               (add-text-properties beg end '(invisible t jupyter-invisible t))))
-            (ansi-color-apply-face-function
-             (lambda (beg end face)
-               (when face
-                 (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)))))
-    (ansi-color-apply-on-region begin end)))
+  (let ((ansi-color-apply-face-function
+         (lambda (beg end face)
+           (when face
+             (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-insert' method
 

test/jupyter-test.el

@@ -2605,7 +2605,8 @@ publish_display_data({'text/plain': 'AB\x1b[43mCD\x1b[0mEF'});"
     (let ((test-fun
            (lambda (face-pos invisible-pos)
              (font-lock-ensure)
-             (jupyter-test-text-has-property 'invisible t invisible-pos)
+             (message "TEXT %S TEXT" (buffer-substring (point-min) (point-max)))
+             (jupyter-test-text-has-property 'jupyter-invisible t invisible-pos)
              (should (listp (get-text-property face-pos 'face)))
              (should (get-text-property face-pos 'jupyter-face))
              (should (memq (caar (get-text-property face-pos 'face))