(isearch-complete): Update isearch-message.

diff --git a/lisp/isearch.el b/lisp/isearch.el
index bb989a73f955358b44d9cfb41ba3cb3f847ba2c8..754b7cf6fa1745083c339e8d7b6a26f03f7760d4 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1519,7 +1519,10 @@ The completed string is then editable in the minibuffer.
 If there is no completion possible, say so and continue searching."
   (interactive)
   (if (isearch-complete1)
-      (isearch-edit-string)
+      (progn (setq isearch-message
+                  (mapconcat 'isearch-text-char-description
+                             isearch-string ""))
+            (isearch-edit-string))
     ;; else
     (sit-for 1)
     (isearch-update)))