(isearch-fallback): Check for `(car previous)'

before calling `isearch-other-end-state'.

1 files changed, 4 insertions, 2 deletions

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 68247b9698..f44b20b3ed 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1458,8 +1458,10 @@ barrier."
 	  ;; `stack' now refers the most recent valid regexp that is not at
 	  ;; all optional in its last term.  Now dig one level deeper and find
 	  ;; what matched before that.
-	  (let ((last-other-end (or (isearch-other-end-state (car previous))
-				    isearch-barrier)))
+	  (let ((last-other-end
+		 (or (and (car previous)
+			  (isearch-other-end-state (car previous)))
+		     isearch-barrier)))
 	    (goto-char (if isearch-forward
 			   (max last-other-end isearch-barrier)
 			 (min last-other-end isearch-barrier)))