1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00

(previous-matching-history-element)

(next-history-element): Use delete-field instead of erase-field.
This commit is contained in:
Gerd Moellmann 1999-11-04 20:42:27 +00:00
parent 98cbb9a3dd
commit 12de1411b3

View File

@ -747,7 +747,7 @@ See also `minibuffer-history-case-insensitive-variables'."
(setq n (+ n (if (< n 0) 1 -1))))) (setq n (+ n (if (< n 0) 1 -1)))))
(setq minibuffer-history-position pos) (setq minibuffer-history-position pos)
(goto-char (point-max)) (goto-char (point-max))
(erase-field) (delete-field)
(let ((elt (nth (1- pos) history))) (let ((elt (nth (1- pos) history)))
(insert (if (eq minibuffer-history-sexp-flag (minibuffer-depth)) (insert (if (eq minibuffer-history-sexp-flag (minibuffer-depth))
(let ((print-level nil)) (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))) (if (> narg (length (symbol-value minibuffer-history-variable)))
(error "Beginning of history; no preceding item")) (error "Beginning of history; no preceding item"))
(goto-char (point-max)) (goto-char (point-max))
(erase-field) (delete-field)
(setq minibuffer-history-position narg) (setq minibuffer-history-position narg)
(cond ((= narg -1) (cond ((= narg -1)
(setq elt minibuffer-default)) (setq elt minibuffer-default))