[elpa] externals-release/activities e3b8df2f34 009/103: It lives!

[ELPA Syncer]

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

    It lives!
---
 activity.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/activity.el b/activity.el
index 2c2396cac6..cea2699474 100644
--- a/activity.el
+++ b/activity.el
@@ -214,10 +214,10 @@ If DEFAULTP, save its default state; if LASTP, its last."
               (translate-leaf (leaf)
                 "Translate window parameters in LEAF."
                 (pcase-let* ((`(leaf . ,attrs) leaf)
-                             ((map parameters buffer) attrs))
+                             ((map parameters ('buffer `(,buffer-name . ,_))) 
attrs))
                   (setf (map-elt parameters 'activity-buffer)
                         ;; HACK: Set buffer record parameter (maybe not the 
"right" place).
-                        (activity--serialize buffer))
+                        (activity--serialize (get-buffer buffer-name)))
                   (pcase-dolist (`(,parameter . ,(map serialize))
                                  activity-window-parameters-translators)
                     (when (map-elt parameters parameter)
@@ -301,7 +301,7 @@ If DEFAULTP, save its default state; if LASTP, its last."
                              collect (cons variable
                                            (buffer-local-value variable 
(current-buffer))))))))
 
-(cl-defmethod activity--deserialize ((struct buffer))
+(cl-defmethod activity--deserialize ((struct activity-buffer))
   "Return buffer for `activity-buffer' STRUCT."
   (pcase-let (((cl-struct activity-buffer bookmark filename name) struct))
     (cond (bookmark (activity--bookmark-buffer struct))