[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/consult df877109c8: Fix deprecation warning (Fix #693)
From: |
ELPA Syncer |
Subject: |
[elpa] externals/consult df877109c8: Fix deprecation warning (Fix #693) |
Date: |
Mon, 5 Dec 2022 12:57:27 -0500 (EST) |
branch: externals/consult
commit df877109c836b3d1d6e57f68069348040fb0ebd4
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Fix deprecation warning (Fix #693)
---
consult.el | 30 ++++++++++++++++--------------
1 file changed, 16 insertions(+), 14 deletions(-)
diff --git a/consult.el b/consult.el
index c7ac3dc4d9..7df17aa1aa 100644
--- a/consult.el
+++ b/consult.el
@@ -3292,20 +3292,22 @@ INITIAL is the initial input."
(consult--completion-filter-dispatch
pattern cands 'consult-location 'highlight))))
(consult--forbid-minibuffer)
- (cl-letf ((ro buffer-read-only)
- ((buffer-local-value 'buffer-read-only (current-buffer)) 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))))))
+ (let ((ro buffer-read-only))
+ (unwind-protect
+ (consult--minibuffer-with-setup-hook
+ (lambda ()
+ (when ro
+ (minibuffer-message
+ (substitute-command-keys
+ " [Unlocked read-only buffer. \\[minibuffer-keyboard-quit]
to quit.]"))))
+ (setq buffer-read-only nil)
+ (consult--with-increased-gc
+ (consult--prompt
+ :prompt "Keep lines: "
+ :initial initial
+ :history 'consult--keep-lines-history
+ :state (consult--keep-lines-state filter))))
+ (setq buffer-read-only ro))))
;;;;; Command: consult-focus-lines
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/consult df877109c8: Fix deprecation warning (Fix #693),
ELPA Syncer <=