emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/pacmacs 5ec5ce8e67 267/472: Remove that pacmacs--object-at


From: ELPA Syncer
Subject: [nongnu] elpa/pacmacs 5ec5ce8e67 267/472: Remove that pacmacs--object-at-p already!
Date: Thu, 6 Jan 2022 21:59:30 -0500 (EST)

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

    Remove that pacmacs--object-at-p already!
    
    Jeez...
---
 pacmacs-board.el | 14 --------------
 1 file changed, 14 deletions(-)

diff --git a/pacmacs-board.el b/pacmacs-board.el
index 68e5714c1a..837dfa91f6 100644
--- a/pacmacs-board.el
+++ b/pacmacs-board.el
@@ -69,20 +69,6 @@
                (equal object-type type)))
            cell)))
 
-(defun pacmacs--object-at-p (board row column objects)
-  (plist-bind ((width :width)
-               (height :height))
-      board
-    (let ((wrapped-row (mod row height))
-          (wrapped-column (mod column width)))
-      (-find (-lambda (object)
-               (plist-bind ((object-row :row)
-                            (object-column :column))
-                   object
-                 (and (= object-row wrapped-row)
-                      (= object-column wrapped-column))))
-             objects))))
-
 (defun pacmacs--step-point (board row column direction)
   (plist-bind ((width :width)
                (height :height))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]