From: Eshel Yaron <me@eshelyaron.com>
Date: Wed, 21 Aug 2024 09:25:17 +0000 (+0200)
Subject: ; Inhibit completion preview in read-only buffers
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=de30fee62d7c84adf9032be0c91911e7e5fc8d20;p=emacs.git

; Inhibit completion preview in read-only buffers

* lisp/completion-preview.el
(completion-preview--post-command): Avoid showing completion
preview if buffer is read-only.
---

diff --git a/lisp/completion-preview.el b/lisp/completion-preview.el
index d8a010a94b7..d3e9acb1ed9 100644
--- a/lisp/completion-preview.el
+++ b/lisp/completion-preview.el
@@ -534,7 +534,8 @@ point, otherwise hide it."
     ;; preview, don't do anything.
     (unless internal-p
       (if (and (completion-preview-require-certain-commands)
-               (completion-preview-require-minimum-symbol-length))
+               (completion-preview-require-minimum-symbol-length)
+               (not buffer-read-only))
           (completion-preview--show)
         (completion-preview-active-mode -1)))))