history: Don't prompt when latest-id does not match.

atlas-engineer · Nov 22, 2022 · d53b60f · d53b60f
1 parent 2075733
commit d53b60f
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/source/history.lisp b/source/history.lisp
@@ -353,11 +353,12 @@ Return non-NIL of history was restored, NIL otherwise."
                        (gethash (htree:creator-id owner) old-id->new-id)))
                (htree:owners history))
       (setf (htree:owners history) new-owners))
-    (alex:when-let ((latest-id (first
-                                (first
-                                 (sort-by-time (alex:hash-table-alist (htree:owners history))
-                                               :key (compose #'htree:last-access #'rest))))))
-      (switch-buffer :buffer (buffers-get latest-id)))))
+    (alex:when-let* ((latest-id (first
+                                 (first
+                                  (sort-by-time (alex:hash-table-alist (htree:owners history))
+                                                :key (compose #'htree:last-access #'rest)))))
+                     (buffer (buffers-get latest-id)))
+      (switch-buffer :buffer buffer))))
 
 (defmethod files:deserialize ((profile nyxt-profile) (file history-file) raw-content &key)
   "Restore the global/buffer-local history and session from the PATH."