[elpa] externals/consult 3936635 2/2: consult-keep-lines: Minor cleanup

[ELPA Syncer]

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

    consult-keep-lines: Minor cleanup
---
 consult.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/consult.el b/consult.el
index bd3e1fe..9bce9f4 100644
--- a/consult.el
+++ b/consult.el
@@ -2974,8 +2974,8 @@ INITIAL is the initial input."
            (consult--completion-filter-dispatch
             pattern cands 'consult-location 'highlight))))
   (consult--forbid-minibuffer)
-  (let ((ro buffer-read-only)
-        (buffer-read-only nil))
+  (cl-letf ((ro buffer-read-only)
+            ((buffer-local-value 'buffer-read-only (current-buffer)) nil))
     (consult--minibuffer-with-setup-hook
         (lambda ()
           (when ro