[elpa] externals/consult cc398b8 1/2: consult-keep-lines: Temporarily unlock read-only buffers

[ELPA Syncer]

branch: externals/consult
commit cc398b81feff08804db975787d906e2ace7d797e
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    consult-keep-lines: Temporarily unlock read-only buffers
    
    See also consult-focus-lines which uses overlays as alternative.
---
 consult.el | 21 ++++++++++++++-------
 1 file changed, 14 insertions(+), 7 deletions(-)

diff --git a/consult.el b/consult.el
index cdde0e2..bd3e1fe 100644
--- a/consult.el
+++ b/consult.el
@@ -2974,13 +2974,20 @@ INITIAL is the initial input."
            (consult--completion-filter-dispatch
             pattern cands 'consult-location 'highlight))))
   (consult--forbid-minibuffer)
-  (barf-if-buffer-read-only)
-  (consult--with-increased-gc
-   (consult--prompt
-    :prompt "Keep lines: "
-    :initial initial
-    :history 'consult--keep-lines-history
-    :state (consult--keep-lines-state filter))))
+  (let ((ro buffer-read-only)
+        (buffer-read-only nil))
+    (consult--minibuffer-with-setup-hook
+        (lambda ()
+          (when ro
+            (minibuffer-message
+             (substitute-command-keys
+              " [Unlocked read-only buffer. \\[minibuffer-keyboard-quit] to 
quit.]"))))
+        (consult--with-increased-gc
+         (consult--prompt
+          :prompt "Keep lines: "
+          :initial initial
+          :history 'consult--keep-lines-history
+          :state (consult--keep-lines-state filter))))))
 
 ;;;;; Command: consult-focus-lines