diff options
| author | Lars Ingebrigtsen | 2019-06-16 15:14:26 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-06-16 15:21:18 +0200 |
| commit | e6404927e3922a1c8daf38a0b9efa7cb1f1377db (patch) | |
| tree | e8ad13209c59fe5750d435743b0bd036512bf073 | |
| parent | bba5cc96aaad1b21190bf7ef586f784df5c9c367 (diff) | |
| download | emacs-e6404927e3922a1c8daf38a0b9efa7cb1f1377db.tar.gz emacs-e6404927e3922a1c8daf38a0b9efa7cb1f1377db.zip | |
Declare function in esh-mode before #'-ing it
* lisp/eshell/esh-mode.el (ansi-color-apply-text-property-face):
Declare to avoid a compilation warning.
| -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))) |