branch: externals/consult
commit 3aa436bd2c9c058f0537fe83d5cb5f9d558b0222
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
consult-yank-pop, consult-history: Respect display properties during preview
Avoid leaking passwords stored in the kill-ring during preview. The
password in
the kill-ring is obfuscated with asterisks as display properties. Fix #1196.
---
consult.el | 2 ++
1 file changed, 2 insertions(+)
diff --git a/consult.el b/consult.el
index f5ae6b0d90..b75b6ffb58 100644
--- a/consult.el
+++ b/consult.el
@@ -4164,6 +4164,7 @@ If no MODES are specified, use currently active major and
minor modes."
:sort nil
:category 'kill-ring
:require-match t
+ :lookup #'consult--lookup-member
:state
(consult--insertion-preview
(point)
@@ -4396,6 +4397,7 @@ of the prompt. See also `cape-history' from the Cape
package."
('file-name-history 'file)))
:sort nil
:initial (buffer-substring-no-properties beg end)
+ :lookup #'consult--lookup-member
:state (consult--insertion-preview beg end)))))
(delete-region beg end)
(when index
