aboutsummaryrefslogtreecommitdiff
path: root/config.org
diff options
context:
space:
mode:
Diffstat (limited to 'config.org')
-rw-r--r--config.org20
1 files changed, 12 insertions, 8 deletions
diff --git a/config.org b/config.org
index 0771d0c..ababf22 100644
--- a/config.org
+++ b/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.~