[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/zig-mode dbc648f5bc 2/2: Use builtin `ansi-color-compilati
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/zig-mode dbc648f5bc 2/2: Use builtin `ansi-color-compilation-filter` on Emacs >= 28 |
Date: |
Sat, 21 May 2022 07:58:48 -0400 (EDT) |
branch: elpa/zig-mode
commit dbc648f5bca8f3b9ca2cc7827f326f5530115144
Author: Erik Arvstedt <erik.arvstedt@gmail.com>
Commit: Joachim Schmidt <joachim.schmidt557@outlook.com>
Use builtin `ansi-color-compilation-filter` on Emacs >= 28
---
zig-mode.el | 12 +++++++-----
1 file changed, 7 insertions(+), 5 deletions(-)
diff --git a/zig-mode.el b/zig-mode.el
index 4fe1e65768..be3a0ee069 100644
--- a/zig-mode.el
+++ b/zig-mode.el
@@ -551,13 +551,15 @@ This is written mainly to be used as
`end-of-defun-function' for Zig."
(when zig-format-on-save
(zig-format-buffer)))
-(defun colorize-compilation-buffer ()
- (let ((inhibit-read-only t))
- (ansi-color-apply-on-region compilation-filter-start (point))))
-
;;;###autoload
(add-to-list 'auto-mode-alist '("\\.zig\\'" . zig-mode))
-(add-hook 'compilation-filter-hook 'colorize-compilation-buffer)
+(if (>= emacs-major-version 28)
+ (add-hook 'compilation-filter-hook 'ansi-color-compilation-filter)
+ (progn
+ (defun colorize-compilation-buffer ()
+ (let ((inhibit-read-only t))
+ (ansi-color-apply-on-region compilation-filter-start (point))))
+ (add-hook 'compilation-filter-hook 'colorize-compilation-buffer)))
(provide 'zig-mode)
;;; zig-mode.el ends here