summaryrefslogtreecommitdiff
path: root/lisp/eshell/esh-mode.el
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2019-06-16 15:14:26 +0200
committerLars Ingebrigtsen <larsi@gnus.org>2019-06-16 15:21:18 +0200
commite6404927e3922a1c8daf38a0b9efa7cb1f1377db (patch)
treee8ad13209c59fe5750d435743b0bd036512bf073 /lisp/eshell/esh-mode.el
parentbba5cc96aaad1b21190bf7ef586f784df5c9c367 (diff)
downloademacs-e6404927e3922a1c8daf38a0b9efa7cb1f1377db.tar.gz
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.
Diffstat (limited to 'lisp/eshell/esh-mode.el')
-rw-r--r--lisp/eshell/esh-mode.el3
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'."
(autoload 'ansi-color-apply-on-region "ansi-color")
(defvar ansi-color-apply-face-function)
+(declare-function ansi-color-apply-text-property-face "ansi-color"
+ (BEG END FACE))
(defun eshell-handle-ansi-color ()
"Handle ANSI color codes."
+ (require 'ansi-color)
(let ((ansi-color-apply-face-function #'ansi-color-apply-text-property-face))
(ansi-color-apply-on-region eshell-last-output-start
eshell-last-output-end)))