Skip to content

Commit

Permalink
Fix indentation
Browse files Browse the repository at this point in the history
  • Loading branch information
tarsius committed Jun 28, 2024
1 parent 9411f5d commit 33221b6
Showing 1 changed file with 7 additions and 8 deletions.
15 changes: 7 additions & 8 deletions package-build.el
Original file line number Diff line number Diff line change
Expand Up @@ -1678,14 +1678,13 @@ a package."

(defun package-build--archive-alist-for-json ()
"Return the archive alist in a form suitable for JSON encoding."
(cl-flet ((format-person
(person)
(let ((name (car person))
(mail (cdr person)))
(if (and name mail)
(format "%s <%s>" name mail)
(or name
(format "<%s>" mail))))))
(cl-flet ((format-person (person)
(let ((name (car person))
(mail (cdr person)))
(if (and name mail)
(format "%s <%s>" name mail)
(or name
(format "<%s>" mail))))))
(cl-mapcan (lambda (entry)
(list (intern (format ":%s" (car entry)))
(let* ((info (cdr entry))
Expand Down

0 comments on commit 33221b6

Please sign in to comment.