[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/vertico 94e399e 3/4: vertico-buffer: Mark as read-only
From: |
ELPA Syncer |
Subject: |
[elpa] externals/vertico 94e399e 3/4: vertico-buffer: Mark as read-only |
Date: |
Sat, 30 Oct 2021 11:57:31 -0400 (EDT) |
branch: externals/vertico
commit 94e399e814da4ac38d78bf1c016882a0ea8d1020
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
vertico-buffer: Mark as read-only
---
extensions/vertico-buffer.el | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/extensions/vertico-buffer.el b/extensions/vertico-buffer.el
index 8b0ce39..f08d68c 100644
--- a/extensions/vertico-buffer.el
+++ b/extensions/vertico-buffer.el
@@ -76,9 +76,10 @@
(prompt (minibuffer-prompt))
(content (minibuffer-contents)))
(with-current-buffer vertico-buffer--buffer
- (erase-buffer)
- (insert (propertize (concat count prompt) 'face 'minibuffer-prompt)
- content "\n" (string-join lines)))
+ (with-silent-modifications
+ (erase-buffer)
+ (insert (propertize (concat count prompt) 'face 'minibuffer-prompt)
+ content "\n" (string-join lines))))
(let ((win (or (get-buffer-window vertico-buffer--buffer)
(display-buffer vertico-buffer--buffer
vertico-buffer-display-action))))
(overlay-put vertico--candidates-ov 'window win)
@@ -121,7 +122,7 @@
(setq-local display-line-numbers nil
truncate-lines t
show-trailing-whitespace nil
- inhibit-modification-hooks t
+ buffer-read-only t
cursor-in-non-selected-windows 'box)))
;;;###autoload