X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/098582b08bc1117ad748e6e212adc7d1d20c9ef2..8d7b29c99927fe1b84e60bd39c11053f9d4f2dcf:/packages/el-search/el-search.el

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 90be0aca7..2d032e622 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -309,6 +309,8 @@ error."
   "Map for reading input with `el-search-read-expression'.")
 
 (defun el-search--setup-minibuffer ()
+  (let ((inhibit-read-only t))
+    (put-text-property 1 (minibuffer-prompt-end) 'font-lock-face 'minibuffer-prompt))
   (emacs-lisp-mode)
   (use-local-map el-search-read-expression-map)
   (setq font-lock-mode t)