branch: elpa/pacmacs
commit edf7b2d1b37c1c518debd044fece17bcaf532286
Author: rexim <[email protected]>
Commit: rexim <[email protected]>
Use plist-bind macro for pacman-anim-get-frame (#54)
---
pacman-anim.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/pacman-anim.el b/pacman-anim.el
index 57f7fb5cb4..ed7b2d8e7b 100644
--- a/pacman-anim.el
+++ b/pacman-anim.el
@@ -35,6 +35,7 @@
(require 'json)
(require 'pacman-image)
+(require 'pacman-utils)
(defun pacman-make-anim (frames sprite-sheet)
(list :frames frames
@@ -70,8 +71,9 @@
'(x y w h))))
(defun pacman-anim-get-frame (anim)
- (let ((frames (plist-get anim :frames))
- (current-frame (plist-get anim :current-frame)))
+ (plist-bind ((frames :frames)
+ (current-frame :current-frame))
+ anim
(nth current-frame frames)))
(defun pacman-anim-next-frame (anim)
