aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/simple.el4
1 files 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'."
747 (setq n (+ n (if (< n 0) 1 -1))))) 747 (setq n (+ n (if (< n 0) 1 -1)))))
748 (setq minibuffer-history-position pos) 748 (setq minibuffer-history-position pos)
749 (goto-char (point-max)) 749 (goto-char (point-max))
750 (erase-field) 750 (delete-field)
751 (let ((elt (nth (1- pos) history))) 751 (let ((elt (nth (1- pos) history)))
752 (insert (if (eq minibuffer-history-sexp-flag (minibuffer-depth)) 752 (insert (if (eq minibuffer-history-sexp-flag (minibuffer-depth))
753 (let ((print-level nil)) 753 (let ((print-level nil))
@@ -796,7 +796,7 @@ An uppercase letter in REGEXP makes the search case-sensitive."
796 (if (> narg (length (symbol-value minibuffer-history-variable))) 796 (if (> narg (length (symbol-value minibuffer-history-variable)))
797 (error "Beginning of history; no preceding item")) 797 (error "Beginning of history; no preceding item"))
798 (goto-char (point-max)) 798 (goto-char (point-max))
799 (erase-field) 799 (delete-field)
800 (setq minibuffer-history-position narg) 800 (setq minibuffer-history-position narg)
801 (cond ((= narg -1) 801 (cond ((= narg -1)
802 (setq elt minibuffer-default)) 802 (setq elt minibuffer-default))