Permalink
Browse files

Remove ANSI control sequence processing.

Going to switch to font-lock instead of using ack's color output.
  • Loading branch information...
1 parent c8aac3a commit 7fe93c2165784e32e9ad163a763fed6187dfd8d1 @sudish committed Oct 19, 2011
Showing with 3 additions and 11 deletions.
  1. +3 −11 ack-mode.el
View
14 ack-mode.el
@@ -19,19 +19,14 @@
;; only by the line number, making it easier to sift through the
;; results.
-(require 'ansi-color)
(defvar ack-program-name "ack")
(defvar ack-color-filename "bold green")
(defvar ack-color-match "bold red")
(defvar ack-color-lineno "bold yellow")
-(defvar ack-arguments `("--nopager" "--group" "--color"
- ,(concat "--color-filename=" ack-color-filename)
- ,(concat "--color-match=" ack-color-match)
- ,(concat "--color-lineno=" ack-color-lineno)
- ))
+(defvar ack-arguments `("--group" "--nopager" "--nocolor"))
(defvar ack-mode-directory-function
(defun sj/project-root-dir ()
@@ -121,13 +116,10 @@
((and (not ack-in-group-p)
(looking-at ack-mode-file-regexp))
(setq ack-in-group-p t)
- (setq ack-current-group-file-name
- (ansi-color-filter-apply (substring-no-properties (match-string 1))))
+ (setq ack-current-group-file-name (substring-no-properties (match-string 1)))
(set-marker ack-current-group-start-marker (point-marker))))
(forward-line))
- (unless (equal ack-last-processed-mark (point))
- (ansi-color-apply-on-region ack-last-processed-mark (point))
- (set-marker ack-last-processed-mark (point-marker))))
+ (set-marker ack-last-processed-mark (point-marker)))
(defun ack-visit-result ()
(interactive)

0 comments on commit 7fe93c2

Please sign in to comment.