[nongnu] elpa/pacmacs 86d701a167 131/472: Introduce pacmacs--load-next-level

[ELPA Syncer]

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

    Introduce pacmacs--load-next-level
    
    It's a combination of pacmacs--switch-to-next-level and
    pacmacs--load-current-level functions. So the
    pacmacs--switch-to-next-level itself is not needed anymore.
    
    Close #98
---
 pacmacs.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/pacmacs.el b/pacmacs.el
index 53b9d099b9..61eb8c3827 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -114,10 +114,11 @@
   (pacmacs-load-map (aref pacmacs-levels
                           pacmacs-current-level)))
 
-(defun pacmacs--switch-to-next-level ()
+(defun pacmacs--load-next-level ()
   (setq pacmacs-current-level
         (mod (1+ pacmacs-current-level)
-             (length pacmacs-levels))))
+             (length pacmacs-levels)))
+  (pacmacs--load-current-level))
 
 (defun pacmacs--make-wall-cell (row column)
   (list :current-animation (pacmacs-make-anim (list (pacmacs-make-frame '(0 0 
40 40) 100))
@@ -349,8 +350,7 @@
           (pacmacs--detect-ghost-collision)
           (when (equal pacmacs-game-state 'play)
             (pacmacs--step-ghosts)))
-      (pacmacs--switch-to-next-level)
-      (pacmacs--load-current-level)
+      (pacmacs--load-next-level)
       (pacmacs--switch-to-prepare-state))))
 
 (defun pacmacs-death-state-logic ()