branch: master
commit a1e135af6ffd1018ba86e2dd2f3dbc630674a63e
Author: Leo Perrin <leoper...@picarresursix.fr>
Commit: Alexey Veretennikov <alexey.veretenni...@gmail.com>

    Added loccur-no-highlight function.
---
 loccur.el |    8 ++++++++
 1 files changed, 8 insertions(+), 0 deletions(-)

diff --git a/loccur.el b/loccur.el
index 1dc93d8..e374f6e 100644
--- a/loccur.el
+++ b/loccur.el
@@ -274,6 +274,14 @@ containing match"
         (forward-line 1))
       (setq lines (nreverse lines)))))
 
+(defun loccur-no-highlight(regex)
+  "Displays only the lines matching a given regex with no
+highlithing of any part of the lines."
+  (let (old-highlighting)
+    (setq old-highlighting loccur-highlight-matching-regexp)
+    (setq loccur-highlight-matching-regexp nil)
+    (loccur regex)
+    (setq loccur-highlight-matching-regexp old-highlighting)))
 
 
 (provide 'loccur)

Reply via email to