From: Mark A. Hershberger <mah@everybody.org>
Date: Fri, 16 Mar 2007 16:53:06 +0000 (+0000)
Subject: eshell ansi-color hook
X-Git-Tag: emacs-pretest-22.0.96~139
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1c979bff35bb7603245ffbd8aaf19be097dc2bdd;p=emacs.git

eshell ansi-color hook
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fe5b283ab53..36f0d35eb5f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-03-16  Mark A. Hershberger  <mah@everybody.org>
+
+	* eshell/esh-mode.el (eshell-handle-ansi-color): New function.
+	Add new option for eshell-output-filter-functions.
+
 2007-03-11  Juri Linkov <juri@jurta.org>
 
 	* replace.el (match): Use yellow background on light-bg terminals.
diff --git a/lisp/eshell/esh-mode.el b/lisp/eshell/esh-mode.el
index c185e88d8a8..c6abda631dc 100644
--- a/lisp/eshell/esh-mode.el
+++ b/lisp/eshell/esh-mode.el
@@ -1078,6 +1078,15 @@ This function could be in the list `eshell-output-filter-functions'."
 (custom-add-option 'eshell-output-filter-functions
 		   'eshell-handle-control-codes)
 
+(defun eshell-handle-ansi-color ()
+  "Handle ANSI color codes."
+  (require 'ansi-color)
+  (ansi-color-apply-on-region eshell-last-output-start
+                              eshell-last-output-end))
+
+(custom-add-option 'eshell-output-filter-functions
+		   'eshell-handle-ansi-color)
+
 ;;; Code:
 
 ;;; arch-tag: ec65bc2b-da14-4547-81d3-a32af3a4dc57