branch: elpa/pacmacs
commit d49cb4afe3de54ebceff4aa8fa1c85be7d3d2b35
Author: rexim <[email protected]>
Commit: rexim <[email protected]>
Fix misspelling of the word `life` in single form
---
pacmacs.el | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/pacmacs.el b/pacmacs.el
index be0b6a73e6..93ddfb68af 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -74,7 +74,7 @@
(defvar pacmacs-game-state 'play)
(defvar pacmacs-lives 3)
-(defvar pacmacs-live-icon nil)
+(defvar pacmacs-life-icon nil)
(define-derived-mode pacmacs-mode special-mode "pacmacs-mode"
(define-key pacmacs-mode-map (kbd "<up>") 'pacmacs-up)
@@ -182,12 +182,12 @@
(plist-put game-object :direction direction)
(plist-put game-object :current-animation (plist-get direction-animations
direction))))
-(defun pacmacs--render-live-icon ()
- (when (not pacmacs-live-icon)
- (setq pacmacs-live-icon
+(defun pacmacs--render-life-icon ()
+ (when (not pacmacs-life-icon)
+ (setq pacmacs-life-icon
(pacmacs-load-anim "Pacman-Chomping-Right"))
- (plist-put pacmacs-live-icon :current-frame 2))
- (pacmacs-render-anim pacmacs-live-icon))
+ (plist-put pacmacs-life-icon :current-frame 2))
+ (pacmacs-render-anim pacmacs-life-icon))
(defun pacmacs--make-empty-cell ()
(if pacmacs-empty-cell
@@ -413,7 +413,7 @@
(insert "\n")))
(insert "\n")
(dotimes (i pacmacs-lives)
- (pacmacs--render-live-icon)))
+ (pacmacs--render-life-icon)))
(defun pacmacs-up ()
(interactive)
