diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-08-22 18:52:48 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-08-22 18:52:48 +0200 |
| commit | b54fc1b6d405024c2b5c6019e60ee7ed0744b66c (patch) | |
| tree | 92a0afa394c040e12e0550b412b4a771eec27e89 /lisp/mastodon-profile.el | |
| parent | c8b545193fc035384796e595f51251c84e258922 (diff) | |
let* in update-meta-fields-alist
Diffstat (limited to 'lisp/mastodon-profile.el')
| -rw-r--r-- | lisp/mastodon-profile.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index 261ee0c..a5abe5a 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -447,13 +447,13 @@ Returns the results as an alist." ;; offer empty fields if user currently has less than four filled: (while (< (length fields-old) 4) (setq fields-old (append fields-old '(("" . ""))))) - (let ((f-str "Metadata %s [%s/4] (max. 255 chars): ") - (alist - (cl-loop for f in fields-old - for x from 1 to 5 - collect - (cons (read-string (format f-str "key" x) (car f)) - (read-string (format f-str "value" x) (cdr f)))))) + (let* ((f-str "Metadata %s [%s/4] (max. 255 chars): ") + (alist + (cl-loop for f in fields-old + for x from 1 to 5 + collect + (cons (read-string (format f-str "key" x) (car f)) + (read-string (format f-str "value" x) (cdr f)))))) (mapcar (lambda (x) (cons (mastodon-profile--limit-to-255 (car x)) (mastodon-profile--limit-to-255 (cdr x)))) |