[elpa] externals/embark 33c392cf3c: Make parts of the occur export buffer read-only (fixes #697)

[ELPA Syncer]

branch: externals/embark
commit 33c392cf3ce5b92ad73ed5c4f44dbca5d0741cde
Author: Omar Antolin Camarena <omar.antolin@gmail.com>
Commit: Omar Antolin Camarena <omar.antolin@gmail.com>

    Make parts of the occur export buffer read-only (fixes #697)
    
    With this change we match which portions of the built-in occur's
    output are read-only. Some external packages such as iedit rely on
    those text properties.
---
 embark-consult.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/embark-consult.el b/embark-consult.el
index c5cf452084..fa967cd3b8 100644
--- a/embark-consult.el
+++ b/embark-consult.el
@@ -121,6 +121,7 @@ The elements of LINES are assumed to be values of category 
`consult-line'."
                                  ;; of the prefix (for Occur Edit mode).
                                  'front-sticky t
                                  'rear-nonsticky t
+                                 'read-only t
                                  'occur-target loc
                                  'follow-link t
                                  'help-echo mouse-msg))
@@ -134,7 +135,9 @@ The elements of LINES are assumed to be values of category 
`consult-line'."
           (unless (eq this-buf last-buf)
             (insert (propertize
                      (format "lines from buffer: %s\n" this-buf)
-                     'face list-matching-lines-buffer-name-face))
+                     'face list-matching-lines-buffer-name-face
+                     'read-only t
+                     'rear-nonsticky '(read-only)))
             (setq last-buf this-buf))
           (insert (concat lineno contents nl))))
       (goto-char (point-min))