[elpa] externals/transient 55bad19507 194/366: transient--pp-to-file: Bugfix

[Jonas Bernoulli]

branch: externals/transient
commit 55bad195077bee2304038ad851e38a8a83ff7f60
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    transient--pp-to-file: Bugfix
---
 lisp/transient.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index b757a31906..dee6804435 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -480,13 +480,13 @@ These faces are only used if `transient-semantic-coloring'
            (insert-file-contents file)
            (read (current-buffer))))))
 
-(defun transient--pp-to-file (object file)
+(defun transient--pp-to-file (list file)
   (make-directory (file-name-directory file) t)
-  (setq object (cl-sort object #'string< :key #'car))
+  (setq list (cl-sort (copy-sequence list) #'string< :key #'car))
   (with-temp-file file
     (let ((print-level nil)
           (print-length nil))
-      (pp object (current-buffer)))))
+      (pp list (current-buffer)))))
 
 (defvar transient-values
   (transient--read-file-contents transient-values-file)