From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 13 Jun 2004 22:00:17 +0000 (+0000)
Subject: (previous-matching-history-element): Specify a default.
X-Git-Tag: ttn-vms-21-2-B4~5787
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5794c45d21123a031e64626e5966bd7522c63f44;p=emacs.git

(previous-matching-history-element): Specify a default.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 2f056e9d462..66bc7c6b2ed 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -953,7 +953,8 @@ See also `minibuffer-history-case-insensitive-variables'."
 					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