# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1193012246 0
# Node ID bcd1444223830ae34f798286b954fdbbd98987e3
# Parent  dfdbd485bfa6c69582770d4649f64aae97512244
(goto-history-element): Allow minibuffer-default to be
a list of default values accessible by typing M-n in the minibuffer.

diff -r dfdbd485bfa6 -r bcd144422383 lisp/simple.el
--- a/lisp/simple.el	Sun Oct 21 20:10:06 2007 +0000
+++ b/lisp/simple.el	Mon Oct 22 00:17:26 2007 +0000
@@ -1295,7 +1295,11 @@
   "Puts element of the minibuffer history in the minibuffer.
 The argument NABS specifies the absolute history position."
   (interactive "p")
-  (let ((minimum (if minibuffer-default -1 0))
+  (let ((minimum (if minibuffer-default
+		     (- (if (listp minibuffer-default)
+			    (length minibuffer-default)
+			  1))
+		   0))
 	elt minibuffer-returned-to-present)
     (if (and (zerop minibuffer-history-position)
 	     (null minibuffer-text-before-history))
@@ -1317,8 +1321,10 @@
     (goto-char (point-max))
     (delete-minibuffer-contents)
     (setq minibuffer-history-position nabs)
-    (cond ((= nabs -1)
-	   (setq elt minibuffer-default))
+    (cond ((< nabs 0)
+	   (setq elt (if (listp minibuffer-default)
+			 (nth (1- (abs nabs)) minibuffer-default)
+		       minibuffer-default)))
 	  ((= nabs 0)
 	   (setq elt (or minibuffer-text-before-history ""))
 	   (setq minibuffer-returned-to-present t)