branch: externals/embark
commit 70a77304c0a3a5fb8e4951941ec5414410e1d700
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
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)))
