[nongnu] elpa/pacmacs 317f9b85b7 114/472: Refactor pacmacs--track-point (#74)

[ELPA Syncer]

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

    Refactor pacmacs--track-point (#74)
---
 pacmacs.el           | 12 ++++++------
 test/pacmacs-test.el | 12 ++++++------
 2 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/pacmacs.el b/pacmacs.el
index 2e5e18b665..2d32750991 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -207,12 +207,12 @@
 
          (d-row (- end-row start-row))
          (d-column (- end-column start-column)))
-    (aset (aref pacmacs-track-board (mod start-row pacmacs-board-height))
-          (mod start-column pacmacs-board-width)
-          (cdr
-           (assoc (cons d-column
-                        d-row)
-                  pacmacs-inversed-direction-table)))))
+    
+    (pacmacs--cell-set pacmacs-track-board
+                       start-row start-column
+                       (cdr
+                        (assoc (cons d-column d-row)
+                               pacmacs-inversed-direction-table)))))
 
 (defun pacmacs--recalc-track-board ()
   (pacmacs--fill-board pacmacs-track-board nil)
diff --git a/test/pacmacs-test.el b/test/pacmacs-test.el
index e3e434d898..bf0f1f514d 100644
--- a/test/pacmacs-test.el
+++ b/test/pacmacs-test.el
@@ -8,18 +8,18 @@
     (should (pacmacs--cell-tracked-p 1 0))))
 
 (ert-deftest pacmacs--track-point-test ()
-  (let ((pacmacs-board-width 2)
-        (pacmacs-board-height 2)
-        (pacmacs-track-board [[nil nil]
-                              [nil nil]]))
+  (let ((pacmacs-track-board (list :width 2
+                                   :height 2
+                                   :data [[nil nil]
+                                          [nil nil]])))
     (pacmacs--track-point (cons 0 0) (cons 0 1))
     (should (equal [[right nil]
                     [nil nil]]
-                   pacmacs-track-board))
+                   (plist-get pacmacs-track-board :data)))
     (pacmacs--track-point (cons 1 0) (cons 1 -1))
     (should (equal [[right nil]
                     [left nil]]
-                   pacmacs-track-board))))
+                   (plist-get pacmacs-track-board :data)))))
 
 (ert-deftest pacmacs--track-object-test ()
   (let ((pacmacs-board-width 2)