mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(previous-matching-history-element)

Browse Source 
(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
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/simple.el
View File

@ -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))