Mercurial > emacs

comparison lisp/simple.el @ 19888:45a077538366

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(next-history-element): Cope if minibuffer-text-before-history is nil.
author Richard M. Stallman <rms@gnu.org>
date Fri, 12 Sep 1997 20:55:34 +0000
parents 9f6b375ce842
children c9ed682ff86f
comparison
equal deleted inserted replaced
19887:ff933683a5c5 19888:45a077538366
721 (erase-buffer) 721 (erase-buffer)
722 (setq minibuffer-history-position narg) 722 (setq minibuffer-history-position narg)
723 (cond ((= narg -1) 723 (cond ((= narg -1)
724 (setq elt minibuffer-default)) 724 (setq elt minibuffer-default))
725 ((= narg 0) 725 ((= narg 0)
726 (setq elt minibuffer-text-before-history) 726 (setq elt (or minibuffer-text-before-history ""))
727 (setq minibuffer-text-before-history nil)) 727 (setq minibuffer-text-before-history nil))
728 (t (setq elt (nth (1- minibuffer-history-position) 728 (t (setq elt (nth (1- minibuffer-history-position)
729 (symbol-value minibuffer-history-variable))))) 729 (symbol-value minibuffer-history-variable)))))
730 (insert 730 (insert
731 (if minibuffer-history-sexp-flag 731 (if minibuffer-history-sexp-flag