Mercurial > emacs
comparison lisp/simple.el @ 19888:45a077538366
(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 |