(previous-matching-history-element)

(next-history-element): Use delete-field instead of erase-field.

diff --git a/lisp/simple.el b/lisp/simple.el
index 1fb214cc6c0c87a46330d4a8b6d1e86bee793a5a..6ba3783477b79f8779ce90cce0e5ea9a34372a96 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -747,7 +747,7 @@ See also `minibuffer-history-case-insensitive-variables'."
          (setq n (+ n (if (< n 0) 1 -1)))))
     (setq minibuffer-history-position pos)
     (goto-char (point-max))
-    (erase-field)
+    (delete-field)
     (let ((elt (nth (1- pos) history)))
       (insert (if (eq minibuffer-history-sexp-flag (minibuffer-depth))
                  (let ((print-level nil))
@@ -796,7 +796,7 @@ An uppercase letter in REGEXP makes the search case-sensitive."
        (if (> narg (length (symbol-value minibuffer-history-variable)))
            (error "Beginning of history; no preceding item"))
        (goto-char (point-max))
-       (erase-field)
+       (delete-field)
        (setq minibuffer-history-position narg)
        (cond ((= narg -1)
               (setq elt minibuffer-default))