[nongnu] elpa/pacmacs ba28d344be 068/472: Remove copypaste (#54)

[ELPA Syncer]

branch: elpa/pacmacs
commit ba28d344be499e8bc48120551990a6960230510a
Author: rexim <reximkut@gmail.com>
Commit: rexim <reximkut@gmail.com>

    Remove copypaste (#54)
    
    cc @codingteam
    
    Since @j123123 doesn't do anything useful and only yells stuff at the
    comments 
(https://github.com/rexim/pacman.el/commit/95cce606fd2661e762abfe45fc58a577862aa8ef),
    I have to do this by myself.
---
 pacman-anim.el | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/pacman-anim.el b/pacman-anim.el
index 2664380ccc..57f7fb5cb4 100644
--- a/pacman-anim.el
+++ b/pacman-anim.el
@@ -64,12 +64,10 @@
     (< order1 order2)))
 
 (defun pacman-convert-aseprite-frame (aseprite-frame)
-  (let* ((frame (cdr (assoc 'frame (cdr aseprite-frame))))
-         (x (cdr (assoc 'x frame)))
-         (y (cdr (assoc 'y frame)))
-         (w (cdr (assoc 'w frame)))
-         (h (cdr (assoc 'h frame))))
-    (list x y w h)))
+  (let* ((frame (cdr (assoc 'frame (cdr aseprite-frame)))))
+    (mapcar (lambda (n)
+              (cdr (assoc n frame)))
+            '(x y w h))))
 
 (defun pacman-anim-get-frame (anim)
   (let ((frames (plist-get anim :frames))