(A-GT-K02849): New abstract node; unify A-U+8FB0-itaiji-001.

[chise/xemacs-chise.git.1] / lisp / replace.el

diff --git a/lisp/replace.el b/lisp/replace.el
index ec2ce62..fc5a02c 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -416,7 +416,8 @@ It serves as a menu to find any of the occurrences in this buffer.
                     ;; rewritten for I18N3 snarfing
                     (read-from-minibuffer
                      (format "List lines matching regexp (default `%s'): "
-                             default) nil nil nil 'regexp-history)
+                             default) nil nil nil 'regexp-history nil
+                              default)
                   (read-from-minibuffer
                    "List lines matching regexp: "
                    nil nil nil