Mercurial > emacs

comparison lisp/simple.el @ 26349:e3e54e862d5f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(previous-matching-history-element) (next-history-element): Use delete-field instead of erase-field.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 04 Nov 1999 20:42:27 +0000
parents bcd25953e4cf
children 533da0020196
comparison
equal deleted inserted replaced
26348:10cb17dccd20 26349:e3e54e862d5f
745 (prin1-to-string (nth (1- pos) history))) 745 (prin1-to-string (nth (1- pos) history)))
746 (nth (1- pos) history))) 746 (nth (1- pos) history)))
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))
754 (prin1-to-string elt)) 754 (prin1-to-string elt))
755 elt))) 755 elt)))
794 (error "End of history; no next item") 794 (error "End of history; no next item")
795 (error "End of history; no default available"))) 795 (error "End of history; no default available")))
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))
803 ((= narg 0) 803 ((= narg 0)
804 (setq elt (or minibuffer-text-before-history "")) 804 (setq elt (or minibuffer-text-before-history ""))