X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/b09bb1b61d57fee70a6b83f576ead0fee0f329bd..246e1ffcdab503b7a304e5894208a85830409fb2:/packages/el-search/el-search.el

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index eba4a5df1..8e08571f3 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -313,8 +313,9 @@ error."
   (use-local-map el-search-read-expression-map)
   (setq font-lock-mode t)
   (funcall font-lock-function 1)
-  (backward-sexp)
-  (indent-sexp)
+  (goto-char (minibuffer-prompt-end))
+  (when (looking-at ".*\n")
+    (indent-sexp))
   (goto-char (point-max))
   (when-let ((this-sexp (with-current-buffer (window-buffer (minibuffer-selected-window))
                           (thing-at-point 'sexp))))