(previous-matching-history-element):

No longer remove empty string from history.
Better error message if history is empty.

diff --git a/lisp/simple.el b/lisp/simple.el
index 27a7233b0cd209147c493b98891ee75f1d94dc4e..7f2e14b3505b05ef1e22c57145d44a43196fce2d 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -563,8 +563,9 @@ If N is negative, find the next or Nth next match."
                                        '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))