From 90cfd4c883e9aabe66a5736cf6a9fe4c574edd0c Mon Sep 17 00:00:00 2001
From: Magdalena Szweda <hi@roughlynamed.net>
Date: Sat, 3 Oct 2026 10:26:21 +0200
Subject: test 9 million

---
 doom/.config/doom/config.el  | 20 ++++++++++++--------
 doom/.config/doom/config.org | 20 ++++++++++++--------
 2 files changed, 24 insertions(+), 16 deletions(-)

diff --git a/doom/.config/doom/config.el b/doom/.config/doom/config.el
index 32ef260..a3636e5 100644
--- a/doom/.config/doom/config.el
+++ b/doom/.config/doom/config.el
@@ -357,14 +357,18 @@ emms-cache-file (concat doom-cache-dir "emms-cache"))
                (message "vc-jj: push FAILED, output below")
                (let ((display-buffer-alist nil))
                  (pop-to-buffer buf)))))))))
-(defvar vc--inhibit-async-window)
-
-(defun my/vc-jj--push-no-window (orig &rest args)
-  (let ((vc--inhibit-async-window t))
-    (apply orig args)))
-
-(advice-add 'vc-jj-push :around #'my/vc-jj--push-no-window)
-  (advice-add 'vc-jj-push :after #'my/vc-jj--report-push))
+  (defvar vc--inhibit-async-window)
+
+  (defun my/vc-jj--push-no-window (orig &rest args)
+    (let ((vc--inhibit-async-window t))
+      (apply orig args)))
+
+  (advice-add 'vc-jj-push :around #'my/vc-jj--push-no-window)
+  (advice-add 'vc-jj-push :after #'my/vc-jj--report-push)
+   (define-advice ansi-color-filter-region (:around (fn &rest args) my/vc-jj-writable)
+    (let ((inhibit-read-only (or inhibit-read-only
+                                 (string-prefix-p "*vc-jj" (buffer-name)))))
+      (apply fn args))))
 
 (setq org-directory "~/org/")
 
diff --git a/doom/.config/doom/config.org b/doom/.config/doom/config.org
index 0771d0c..ababf22 100644
--- a/doom/.config/doom/config.org
+++ b/doom/.config/doom/config.org
@@ -647,14 +647,18 @@ A simple fix indeed.
                (message "vc-jj: push FAILED, output below")
                (let ((display-buffer-alist nil))
                  (pop-to-buffer buf)))))))))
-(defvar vc--inhibit-async-window)
-
-(defun my/vc-jj--push-no-window (orig &rest args)
-  (let ((vc--inhibit-async-window t))
-    (apply orig args)))
-
-(advice-add 'vc-jj-push :around #'my/vc-jj--push-no-window)
-  (advice-add 'vc-jj-push :after #'my/vc-jj--report-push))
+  (defvar vc--inhibit-async-window)
+
+  (defun my/vc-jj--push-no-window (orig &rest args)
+    (let ((vc--inhibit-async-window t))
+      (apply orig args)))
+
+  (advice-add 'vc-jj-push :around #'my/vc-jj--push-no-window)
+  (advice-add 'vc-jj-push :after #'my/vc-jj--report-push)
+   (define-advice ansi-color-filter-region (:around (fn &rest args) my/vc-jj-writable)
+    (let ((inhibit-read-only (or inhibit-read-only
+                                 (string-prefix-p "*vc-jj" (buffer-name)))))
+      (apply fn args))))
 #+end_src
 * Org
 ~Protesting for Org README support.~
-- 
cgit v1.2.3