[elpa] externals/embark 0cc29e6778 2/2: Merge pull request #604 from minad/fix-wgrep

[ELPA Syncer]

branch: externals/embark
commit 0cc29e67784cff6315ac068bc97b28dc30e6409e
Merge: 1f6c87d79f 70a77304c0
Author: Omar Antolín Camarena <omar.antolin@gmail.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #604 from minad/fix-wgrep
    
    Fix wgrep read-only header (Fix #602)
---
 embark-consult.el | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/embark-consult.el b/embark-consult.el
index de7718f53b..06832c10c7 100644
--- a/embark-consult.el
+++ b/embark-consult.el
@@ -157,7 +157,7 @@ This function is meant to be added to 
`embark-collect-mode-hook'."
 
 (defvar grep-mode-line-matches)
 (defvar grep-num-matches-found)
-(defvar wgrep-header/footer-parser)
+(defvar wgrep-header&footer-parser)
 (declare-function wgrep-setup "ext:wgrep")
 
 (defvar-keymap embark-consult-revert-map
@@ -165,6 +165,13 @@ This function is meant to be added to 
`embark-collect-mode-hook'."
   :parent nil
   "g" #'revert-buffer)
 
+(defun embark-consult--wgrep-prepare ()
+  "Mark header as read-only."
+  (goto-char (point-min))
+  (forward-line 2)
+  (add-text-properties (point-min) (point)
+                       '(read-only t wgrep-header t front-sticky t)))
+
 (defun embark-consult-export-grep (lines)
   "Create a grep mode buffer listing LINES."
   (let ((buf (generate-new-buffer "*Embark Export Grep*"))
@@ -193,7 +200,7 @@ This function is meant to be added to 
`embark-collect-mode-hook'."
       (use-local-map (make-composed-keymap
                       embark-consult-revert-map
                       (current-local-map)))
-      (setq-local wgrep-header/footer-parser #'ignore)
+      (setq-local wgrep-header&footer-parser #'embark-consult--wgrep-prepare)
       (when (fboundp 'wgrep-setup) (wgrep-setup)))
     (pop-to-buffer buf)))