mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-17 03:10:58 -08:00
Code Issues Projects Releases Wiki Activity

Add function for filtering ANSI sequences when compiling

Browse source 
* lisp/ansi-color.el (ansi-color-for-compilation-mode): New user
option (bug#49609).
(ansi-color-compilation-filter): New function.
This commit is contained in:
Ivan Sokolov 2021-07-19 18:54:18 +02:00 • committed by Lars Ingebrigtsen
parent 0c48469ac1
commit f7f2024b86
2 changed files with 40 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
etc/NEWS
View file

@ -1601,6 +1601,14 @@ Defaults to 'libravatar', with 'unicornify' and 'gravatar' as options.
** Compilation mode ** Compilation mode
---
*** New function 'ansi-color-compilation-filter'.
This function is meant to be used in 'compilation-filter-hook'.
---
*** New user option 'ansi-color-for-compilation-mode'.
This controls what 'ansi-color-compilation-filter' does.
*** Regexp matching of messages is now case-sensitive by default. *** Regexp matching of messages is now case-sensitive by default.
The variable 'compilation-error-case-fold-search' can be set for The variable 'compilation-error-case-fold-search' can be set for
case-insensitive matching of messages when the old behavior is case-insensitive matching of messages when the old behavior is

32
lisp/ansi-color.el
View file

@ -75,6 +75,7 @@
;;; Code: ;;; Code:
(defvar comint-last-output-start) (defvar comint-last-output-start)
(defvar compilation-filter-start)
;; Customization ;; Customization
@ -181,6 +182,24 @@ in shell buffers. You set this variable by calling one of:
:group 'ansi-colors :group 'ansi-colors
:version "23.2") :version "23.2")
(defcustom ansi-color-for-compilation-mode t
"Determines what to do with compilation output.
If nil, do nothing.
If the symbol `filter', then filter all ANSI graphical control
sequences.
If anything else (such as t), then translate ANSI graphical
control sequences into text properties.
In order for this to have any effect, `ansi-color-compilation-filter'
must be in `compilation-filter-hook'."
:type '(choice (const :tag "Do nothing" nil)
(const :tag "Filter" filter)
(other :tag "Translate" t))
:group 'ansi-colors
:version "28.1")
(defvar ansi-color-apply-face-function #'ansi-color-apply-overlay-face (defvar ansi-color-apply-face-function #'ansi-color-apply-overlay-face
"Function for applying an Ansi Color face to text in a buffer. "Function for applying an Ansi Color face to text in a buffer.
This function should accept three arguments: BEG, END, and FACE, This function should accept three arguments: BEG, END, and FACE,
@ -228,6 +247,19 @@ This is a good function to put in `comint-output-filter-functions'."
(t (t
(ansi-color-apply-on-region start-marker end-marker))))) (ansi-color-apply-on-region start-marker end-marker)))))
;;;###autoload
(defun ansi-color-compilation-filter ()
"Maybe translate SGR control sequences into text properties.
This function depends on the `ansi-color-for-compilation-mode'
variable, and is meant to be used in `compilation-filter-hook'."
(let ((inhibit-read-only t))
(pcase ansi-color-for-compilation-mode
('nil nil)
('filter
(ansi-color-filter-region compilation-filter-start (point)))
(_
(ansi-color-apply-on-region compilation-filter-start (point))))))
(define-obsolete-function-alias 'ansi-color-unfontify-region (define-obsolete-function-alias 'ansi-color-unfontify-region
'font-lock-default-unfontify-region "24.1") 'font-lock-default-unfontify-region "24.1")