[elpa] externals/calibre ca0ae8a1d3 74/76: Pick some format if no preferred format is available

[ELPA Syncer]

branch: externals/calibre
commit ca0ae8a1d31a73bd78e028b21d55433dfdfc84c2
Author: Kjartan Óli Ágústsson <kjartanoli@disroot.org>
Commit: Kjartan Óli Ágústsson <kjartanoli@disroot.org>

    Pick some format if no preferred format is available
    
    * calibre-book.el (calibre-book--pick-format): Pick some available
    format, if none of the user's preferred formats are available.
---
 calibre-book.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/calibre-book.el b/calibre-book.el
index 6e3427a856..dea62879bf 100644
--- a/calibre-book.el
+++ b/calibre-book.el
@@ -107,8 +107,9 @@ for private functions."
 
 (defun calibre-book--pick-format (book)
   "Return the preferred format for BOOK."
-  (car (seq-intersection calibre-format-preferences
-                         (calibre-book-formats book))))
+  (let ((pref (seq-intersection calibre-format-preferences
+                                (calibre-book-formats book))))
+    (car (if pref pref (calibre-book-formats book)))))
 
 (defun calibre-book-sort-by-series (a b)
   "Return t if A should appear before B when sorting by series."