aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Ingebrigtsen2019-06-16 15:14:26 +0200
committerLars Ingebrigtsen2019-06-16 15:21:18 +0200
commite6404927e3922a1c8daf38a0b9efa7cb1f1377db (patch)
treee8ad13209c59fe5750d435743b0bd036512bf073
parentbba5cc96aaad1b21190bf7ef586f784df5c9c367 (diff)
downloademacs-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.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'."
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)))