[nongnu] elpa/pacmacs 080aae5f08 070/472: Use plist-bind for pacman-anim-next-frame function (#54)

[ELPA Syncer]

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

    Use plist-bind for pacman-anim-next-frame function (#54)
---
 pacman-anim.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/pacman-anim.el b/pacman-anim.el
index ed7b2d8e7b..40c4a51c37 100644
--- a/pacman-anim.el
+++ b/pacman-anim.el
@@ -77,11 +77,12 @@
     (nth current-frame frames)))
 
 (defun pacman-anim-next-frame (anim)
-  (let* ((frames (plist-get anim :frames))
-         (current-frame (plist-get anim :current-frame))
-         (new-current-frame (mod (+ current-frame 1)
-                                 (length frames))))
-    (plist-put anim :current-frame new-current-frame)))
+  (plist-bind ((frames :frames)
+               (current-frame :current-frame))
+      anim
+    (let ((new-current-frame (mod (+ current-frame 1)
+                                  (length frames))))
+      (plist-put anim :current-frame new-current-frame))))
 
 (defun pacman-anim-object-next-frame (anim-object)
   (let ((anim (plist-get anim-object :animation)))