diff options
| author | Juri Linkov | 2011-09-05 11:20:02 +0300 |
|---|---|---|
| committer | Juri Linkov | 2011-09-05 11:20:02 +0300 |
| commit | f62bd846552a090f3ba5e136d6d9cdb4c07ed7be (patch) | |
| tree | b199c66feaaaa79217d7fbcd5c5f11f16875f68e /etc | |
| parent | 045820ecd3b3f4396474fae297945d58d9187e6a (diff) | |
| download | emacs-f62bd846552a090f3ba5e136d6d9cdb4c07ed7be.tar.gz emacs-f62bd846552a090f3ba5e136d6d9cdb4c07ed7be.zip | |
Grep related fixes.
* etc/grep.txt: Add `eval' to the Local Variables section that
emulates `grep-filter'.
* lisp/progmodes/grep.el (grep-filter): Avoid incomplete processing by
keeping point where processing of grep matches begins, and
continue to delete remaining escape sequences from the same point.
(grep-filter): Make leading zero optional in "0?1;31m" because
git-grep emits "\033[1;31m" escape sequences unlike expected
"\033[01;31m" as GNU Grep does.
(grep-process-setup): Replace obsolete "ml=" with newer "sl=".
Fixes: debbugs:9408
Diffstat (limited to 'etc')
| -rw-r--r-- | etc/ChangeLog | 5 | ||||
| -rw-r--r-- | etc/grep.txt | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/etc/ChangeLog b/etc/ChangeLog index 24c0fd54422..0749862f676 100644 --- a/etc/ChangeLog +++ b/etc/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2011-09-05 Juri Linkov <juri@jurta.org> | ||
| 2 | |||
| 3 | * grep.txt: Add `eval' to the Local Variables section that | ||
| 4 | emulates `grep-filter'. | ||
| 5 | |||
| 1 | 2011-08-30 Paul Eggert <eggert@cs.ucla.edu> | 6 | 2011-08-30 Paul Eggert <eggert@cs.ucla.edu> |
| 2 | 7 | ||
| 3 | * MACHINES: Remove obsolete info and update a bit (Bug#9404). | 8 | * MACHINES: Remove obsolete info and update a bit (Bug#9404). |
diff --git a/etc/grep.txt b/etc/grep.txt index 9a3159f6b08..01ffa9f3ef8 100644 --- a/etc/grep.txt +++ b/etc/grep.txt | |||
| @@ -103,5 +103,6 @@ COPYING PERMISSIONS: | |||
| 103 | 103 | ||
| 104 | 104 | ||
| 105 | ;;; Local Variables: | 105 | ;;; Local Variables: |
| 106 | ;;; eval: (let ((inhibit-read-only t) (compilation-filter-start (point-min))) (save-excursion (goto-char (point-max)) (grep-filter) (set-buffer-modified-p nil))) | ||
| 106 | ;;; buffer-read-only: t | 107 | ;;; buffer-read-only: t |
| 107 | ;;; End: | 108 | ;;; End: |