branch: elpa/pacmacs
commit f53a6d57b7382c7d34a333f6dd239a240369f2dc
Author: rexim <[email protected]>
Commit: rexim <[email protected]>
Fix the compilation error (#203)
render-object-board doesn't depend on a global var anymore
---
pacmacs-render.el | 6 +++---
pacmacs.el | 4 ++--
2 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/pacmacs-render.el b/pacmacs-render.el
index dde594c20e..34943ee468 100644
--- a/pacmacs-render.el
+++ b/pacmacs-render.el
@@ -75,13 +75,13 @@
(insert "."))))
(insert "\n"))))
-(defun pacmacs--render-object-board ()
+(defun pacmacs--render-object-board (object-board)
(plist-bind ((width :width)
(height :height))
- pacmacs--object-board
+ object-board
(dotimes (row height)
(dotimes (column width)
- (let ((anim-object (car (pacmacs--cell-wrapped-get
pacmacs--object-board
+ (let ((anim-object (car (pacmacs--cell-wrapped-get object-board
row column))))
(pacmacs--render-object anim-object)))
(insert "\n")))
diff --git a/pacmacs.el b/pacmacs.el
index a0db2ce278..b1d7899767 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -677,7 +677,7 @@
(when pacmacs-debug-output
(pacmacs--render-track-board pacmacs--track-board))
- (pacmacs--render-object-board)
+ (pacmacs--render-object-board pacmacs--object-board)
(dotimes (i pacmacs-lives)
(ignore i)
@@ -743,7 +743,7 @@
(with-current-buffer pacmacs--score-buffer-name
(let ((inhibit-read-only t))
(erase-buffer)
- (pacmacs--render-object-board)
+ (pacmacs--render-object-board pacmacs--object-board)
(let ((inhibit-read-only t))
(-> (pacmacs--read-score-table)
(pacmacs--render-score-table))))
