correct and add interactive message to update-entry

1 files changed, 6 insertions, 2 deletions

diff --git a/local/bibli-paris/bibli-paris.el b/local/bibli-paris/bibli-paris.el
index 9d250ce..1a4d2e5 100644
--- a/local/bibli-paris/bibli-paris.el
+++ b/local/bibli-paris/bibli-paris.el
@@ -240,10 +240,14 @@ at the central library."
 ;;;###autoload
 (defun bibli-paris/update-entry ()
   "Update the schedule and quote of the entry at point."
-  (interactive
+  (interactive)
    (deferred:$
+     (deferred:call 'message
+       "Fetching holdings for %s (%s) ..."
+       (bibli-paris/get-entry-title)
+       (bibli-paris/get-entry-author))
      (bibli-paris/fetch-entry-holdings-by-id (bibli-paris/get-entry-recnum))
-     (deferred:nextc it 'bibli-paris/update-entry-from))))
+     (deferred:nextc it 'bibli-paris/update-entry-from)))
 
 (defun bibli-paris/async-update-entries-at-points (pom-recnum-seq)
   "Update all entries specified by their positions and record numbers in