From: Dmitry Gutov <dgutov@yandex.ru>
Date: Mon, 7 Jun 2021 12:03:11 +0000 (+0300)
Subject: Fix rgrep abbreviation
X-Git-Tag: emacs-28.0.90~2170^2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=722064022ccbf594e2f74fa13b252b686c3ff0ea;p=emacs.git

Fix rgrep abbreviation

* lisp/progmodes/grep.el (grep-mode-font-lock-keywords):
Update for the last change in grep-find-template (bug#48471).
---

diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index 8647c7089d5..462ea51e2ce 100644
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -473,7 +473,7 @@ buffer `default-directory'."
       (1 (if (eq (char-after (match-beginning 1)) ?\0)
              `(face nil display ,(match-string 2)))))
      ;; Hide excessive part of rgrep command
-     ("^find \\(\\. -type d .*\\(?:\\\\)\\|\")\"\\)\\)"
+     ("^find \\(\\(?:-H \\)?\\. -type d .*\\(?:\\\\)\\|\")\"\\)\\)"
       (1 (if grep-find-abbreviate grep-find-abbreviate-properties
            '(face nil abbreviated-command t))))
      ;; Hide excessive part of lgrep command