[elpa] externals-release/activities 21a728124a 056/103: Change: (activity--serialize) Demote bookmark errors

[ELPA Syncer]

branch: externals-release/activities
commit 21a728124a069e42894839c946018fca192eed89
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Change: (activity--serialize) Demote bookmark errors
---
 activities.el | 30 ++++++++++++++++--------------
 1 file changed, 16 insertions(+), 14 deletions(-)

diff --git a/activities.el b/activities.el
index 6f27e9c641..9a8d2e5192 100644
--- a/activities.el
+++ b/activities.el
@@ -555,20 +555,22 @@ activity's name is NAME."
 (cl-defmethod activity--serialize ((buffer buffer))
   "Return `activities-buffer' struct for BUFFER."
   (with-current-buffer buffer
-    (make-activities-buffer :bookmark (ignore-errors
-                                        (bookmark-make-record))
-                            :filename (buffer-file-name buffer)
-                            :name (buffer-name buffer)
-                            ;; TODO: Handle indirect buffers, narrowing.
-                            :etc `((indirectp . ,(not (not (buffer-base-buffer 
buffer))))
-                                   (narrowedp . ,(buffer-narrowed-p)))
-                            :local-variables
-                            (when activities-buffer-local-variables
-                              (cl-loop
-                               for variable in 
activities-buffer-local-variables
-                               when (buffer-local-boundp variable 
(current-buffer))
-                               collect (cons variable
-                                             (buffer-local-value variable 
(current-buffer))))))))
+    (make-activities-buffer
+     :bookmark (with-demoted-errors
+                   (format "Activities: Error while making bookmark for buffer 
%S: %%S" buffer)
+                 (bookmark-make-record))
+     :filename (buffer-file-name buffer)
+     :name (buffer-name buffer)
+     ;; TODO: Handle indirect buffers, narrowing.
+     :etc `((indirectp . ,(not (not (buffer-base-buffer buffer))))
+            (narrowedp . ,(buffer-narrowed-p)))
+     :local-variables
+     (when activities-buffer-local-variables
+       (cl-loop
+        for variable in activities-buffer-local-variables
+        when (buffer-local-boundp variable (current-buffer))
+        collect (cons variable
+                      (buffer-local-value variable (current-buffer))))))))
 
 (cl-defmethod activities--deserialize ((struct activities-buffer))
   "Return buffer for `activities-buffer' STRUCT."