From 12de1411b399f3cd4bd2c99c7bdf914e818de652 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 4 Nov 1999 20:42:27 +0000 Subject: [PATCH] (previous-matching-history-element) (next-history-element): Use delete-field instead of erase-field. --- lisp/simple.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 1fb214cc6c0..6ba3783477b 100644 --- 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)) -- 2.39.5