diff options
| author | Richard M. Stallman | 1997-09-12 20:55:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-09-12 20:55:34 +0000 |
| commit | 54c548db96cd8247cdb0561ee55701c8dc70490b (patch) | |
| tree | 8c3d2321cadf6142db4da9aa1831862cda1d10d8 | |
| parent | bb40e751bee9a783decb1b0a80d2775056d46902 (diff) | |
| download | emacs-54c548db96cd8247cdb0561ee55701c8dc70490b.tar.gz emacs-54c548db96cd8247cdb0561ee55701c8dc70490b.zip | |
(next-history-element):
Cope if minibuffer-text-before-history is nil.
| -rw-r--r-- | lisp/simple.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 798a706886e..6bb122646b1 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -723,7 +723,7 @@ If N is negative, find the previous or Nth previous match." | |||
| 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))))) |