revert: refactor(lib): remove doom-apply-ansi-color-to-compilation-buffer-h
ansi-color-compilation-filter wasn't introduced until Emacs 28, so this
removal was too hasty, but should be reconsidered when we drop 27.x
support.
Fix: #6515
Revert: 2f7171bf8a
This commit is contained in:
parent
cbc3c0860e
commit
7d0d90ec50
2 changed files with 10 additions and 2 deletions
|
@ -55,6 +55,13 @@ In tty Emacs, messages are suppressed completely."
|
||||||
;;
|
;;
|
||||||
;;; Hooks
|
;;; Hooks
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun doom-apply-ansi-color-to-compilation-buffer-h ()
|
||||||
|
"Applies ansi codes to the compilation buffers. Meant for
|
||||||
|
`compilation-filter-hook'."
|
||||||
|
(with-silent-modifications
|
||||||
|
(ansi-color-apply-on-region compilation-filter-start (point))))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun doom-disable-show-paren-mode-h ()
|
(defun doom-disable-show-paren-mode-h ()
|
||||||
"Turn off `show-paren-mode' buffer-locally."
|
"Turn off `show-paren-mode' buffer-locally."
|
||||||
|
|
|
@ -333,8 +333,9 @@ windows, switch to `doom-fallback-buffer'. Otherwise, delegate to original
|
||||||
(setq compilation-always-kill t ; kill compilation process before starting another
|
(setq compilation-always-kill t ; kill compilation process before starting another
|
||||||
compilation-ask-about-save nil ; save all buffers on `compile'
|
compilation-ask-about-save nil ; save all buffers on `compile'
|
||||||
compilation-scroll-output 'first-error)
|
compilation-scroll-output 'first-error)
|
||||||
;; Handle ansi codes in compilation buffers
|
;; Handle ansi codes in compilation buffer
|
||||||
(add-hook 'compilation-filter-hook #'ansi-color-compilation-filter)
|
;; DEPRECATED Use `ansi-color-compilation-filter' when dropping 27.x support
|
||||||
|
(add-hook 'compilation-filter-hook #'doom-apply-ansi-color-to-compilation-buffer-h)
|
||||||
;; Automatically truncate compilation buffers so they don't accumulate too
|
;; Automatically truncate compilation buffers so they don't accumulate too
|
||||||
;; much data and bog down the rest of Emacs.
|
;; much data and bog down the rest of Emacs.
|
||||||
(autoload 'comint-truncate-buffer "comint" nil t)
|
(autoload 'comint-truncate-buffer "comint" nil t)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue