[nongnu] elpa/pacmacs ece3e76f30 296/472: Rename run-away-direction arguments (#153)

[ELPA Syncer]

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

    Rename run-away-direction arguments (#153)
    
    Review note:
    
    > @ForNeVeR: I don't like these names. They aren't making it obvious
    > which object will run from what. I'd suggest use some more appropriate
    > terms such as `runner` and `bogey` here.
---
 pacmacs.el | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/pacmacs.el b/pacmacs.el
index 2a352bf356..faa3111f9e 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -372,25 +372,25 @@
     (pacmacs--track-object ghost)
     (pacmacs--step-object ghost)))
 
-(defun pacmacs--run-away-direction (game-object-1 game-object-2)
-  (plist-bind ((row-1 :row)
-               (column-1 :column))
-      game-object-1
-    (plist-bind ((row-2 :row)
-                 (column-2 :column))
-        game-object-2
-      (let* ((current-distance (pacmacs--squared-distance row-1 column-1
-                                                          row-2 column-2))
+(defun pacmacs--run-away-direction (runner bogey)
+  (plist-bind ((runner-row :row)
+               (runner-column :column))
+      runner
+    (plist-bind ((bogey-row :row)
+                 (bogey-column :column))
+        bogey
+      (let* ((current-distance (pacmacs--squared-distance runner-row 
runner-column
+                                                          bogey-row 
bogey-column))
              (possible-ways
-              (->> (pacmacs--possible-side-ways row-1 column-1)
+              (->> (pacmacs--possible-side-ways runner-row runner-column)
                    (-remove (-lambda ((row . column))
                               (or (pacmacs--wall-at-p row column)
                                   (> current-distance
                                      (pacmacs--squared-distance row column
-                                                                row-2 
column-2))))))))
+                                                                bogey-row 
bogey-column))))))))
         (-when-let ((row . column) (car possible-ways))
-          (pacmacs--direction-name (cons (- row row-1)
-                                         (- column column-1))))))))
+          (pacmacs--direction-name (cons (- row runner-row)
+                                         (- column runner-column))))))))
 
 (defun pacmacs--step-terrified-ghosts ()
   (dolist (terrified-ghost pacmacs--terrified-ghosts)