diff options
| -rw-r--r-- | lisp/eshell/esh-mode.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/eshell/esh-mode.el b/lisp/eshell/esh-mode.el index a36ac969e55..5644928114e 100644 --- a/lisp/eshell/esh-mode.el +++ b/lisp/eshell/esh-mode.el | |||
| @@ -1015,9 +1015,12 @@ This function could be in the list `eshell-output-filter-functions'." | |||
| 1015 | 1015 | ||
| 1016 | (autoload 'ansi-color-apply-on-region "ansi-color") | 1016 | (autoload 'ansi-color-apply-on-region "ansi-color") |
| 1017 | (defvar ansi-color-apply-face-function) | 1017 | (defvar ansi-color-apply-face-function) |
| 1018 | (declare-function ansi-color-apply-text-property-face "ansi-color" | ||
| 1019 | (BEG END FACE)) | ||
| 1018 | 1020 | ||
| 1019 | (defun eshell-handle-ansi-color () | 1021 | (defun eshell-handle-ansi-color () |
| 1020 | "Handle ANSI color codes." | 1022 | "Handle ANSI color codes." |
| 1023 | (require 'ansi-color) | ||
| 1021 | (let ((ansi-color-apply-face-function #'ansi-color-apply-text-property-face)) | 1024 | (let ((ansi-color-apply-face-function #'ansi-color-apply-text-property-face)) |
| 1022 | (ansi-color-apply-on-region eshell-last-output-start | 1025 | (ansi-color-apply-on-region eshell-last-output-start |
| 1023 | eshell-last-output-end))) | 1026 | eshell-last-output-end))) |