# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 801535231 0
# Node ID b5efbe330c86d7a4bf3a929ad67d11cc64a4ccbe
# Parent  5d3f2639cf3a57f92d449ff3897d0b05cd204f50
(previous-matching-history-element):
No longer remove empty string from history.
Better error message if history is empty.

diff -r 5d3f2639cf3a -r b5efbe330c86 lisp/simple.el
--- a/lisp/simple.el	Sat May 27 00:36:36 1995 +0000
+++ b/lisp/simple.el	Sat May 27 00:40:31 1995 +0000
@@ -563,8 +563,9 @@
 					'minibuffer-history-search-history)))
      ;; Use the last regexp specified, by default, if input is empty.
      (list (if (string= regexp "")
-	       (setcar minibuffer-history-search-history
-		       (nth 1 minibuffer-history-search-history))
+	       (if minibuffer-history-search-history
+		   (car minibuffer-history-search-history)
+		 (error "No previous history search regexp"))
 	     regexp)
 	   (prefix-numeric-value current-prefix-arg))))
   (let ((history (symbol-value minibuffer-history-variable))