Make sure not to lose the minibuffer-prompt face

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 90be0aca7418d36c714cc13bb266e70925161143..2d032e62237c3616139b5c3f3a90d223105177c0 100644 (file)
--- 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)