# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1087164017 0
# Node ID a72ee0aaa7f906b021ff7bce870f9d012d093ff9
# Parent  33e0ec6d566255b208e0ff3555db0f6d785e6cf1
(previous-matching-history-element): Specify a default.

diff -r 33e0ec6d5662 -r a72ee0aaa7f9 lisp/simple.el
--- a/lisp/simple.el	Sun Jun 13 21:58:41 2004 +0000
+++ b/lisp/simple.el	Sun Jun 13 22:00:17 2004 +0000
@@ -953,7 +953,8 @@
 					nil
 					minibuffer-local-map
 					nil
-					'minibuffer-history-search-history)))
+					'minibuffer-history-search-history
+					(car minibuffer-history-search-history))))
      ;; Use the last regexp specified, by default, if input is empty.
      (list (if (string= regexp "")
 	       (if minibuffer-history-search-history