branch: elpa/mastodon
commit 6015840fc74a647a084bcff6e7b2a7ec94c21ffc
Author: marty hiatt <[email protected]>
Commit: marty hiatt <[email protected]>
transient: dubious fixes for getting prefix value.
---
lisp/mastodon-transient.el | 12 +++++++++---
1 file changed, 9 insertions(+), 3 deletions(-)
diff --git a/lisp/mastodon-transient.el b/lisp/mastodon-transient.el
index 3c8b369e16..886570b5ee 100644
--- a/lisp/mastodon-transient.el
+++ b/lisp/mastodon-transient.el
@@ -376,7 +376,9 @@ Do not add more than the server's maximum setting."
(defun mastodon-notifications-requests-count ()
"Format a string for pending requests."
- (let ((val (oref transient--prefix value)))
+ (let ((val ;; (oref transient--prefix value))) ;; deprecated
+ ;; (transient-get-value)) ;; broken
+ tp-transient-settings)) ;; dubious
(format "Pending requests: %d"
(or (map-nested-elt
val
@@ -385,7 +387,9 @@ Do not add more than the server's maximum setting."
(defun mastodon-notifications-filtered-count ()
"Format a string for pending notifications."
- (let ((val (oref transient--prefix value)))
+ (let ((val ;; (oref transient--prefix value))) ;; deprecated
+ ;; (transient-get-value)) ;; broken
+ tp-transient-settings)) ;; dubious
(format "Pending notifications: %d"
(or (map-nested-elt
val
@@ -417,7 +421,9 @@ We always read.")
(cl-defmethod transient-init-value ((obj mastodon-transient-field))
"Initialize value of OBJ."
- (let* ((prefix-val (oref transient--prefix value)))
+ (let* ((prefix-val ;; (oref transient--prefix value))) ;; deprecated
+ ;; (transient-get-value)) ;; broken
+ tp-transient-settings)) ;; dubious
;; (arg (oref obj alist-key)))
(oset obj value
(tp-get-server-val obj prefix-val))))
