[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/pacmacs 2425a26d88 364/472: Use push instead of add-to-lis
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/pacmacs 2425a26d88 364/472: Use push instead of add-to-list (#182) |
Date: |
Thu, 6 Jan 2022 21:59:39 -0500 (EST) |
branch: elpa/pacmacs
commit 2425a26d8890258afe138c927a9bc4b9058603f5
Author: rexim <reximkut@gmail.com>
Commit: rexim <reximkut@gmail.com>
Use push instead of add-to-list (#182)
---
pacmacs.el | 12 ++++++------
tools/pacmacs-rr.el | 9 ++++-----
2 files changed, 10 insertions(+), 11 deletions(-)
diff --git a/pacmacs.el b/pacmacs.el
index 84e60017cc..4f79cf8427 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -450,8 +450,8 @@
(defun pacmacs--unterrify-timed-out-ghosts ()
(dolist (terrified-ghost (-filter #'pacmacs--terrified-ghost-timed-out-p
pacmacs--terrified-ghosts))
- (add-to-list 'pacmacs--ghosts
- (pacmacs--unterrify-ghost terrified-ghost)))
+ (push (pacmacs--unterrify-ghost terrified-ghost)
+ pacmacs--ghosts))
(setq pacmacs--terrified-ghosts
(-remove #'pacmacs--terrified-ghost-timed-out-p
@@ -697,19 +697,19 @@
for line being the element of lines using (index row)
do (cl-loop for x being the element of line using (index column)
do (cond ((char-equal x ?#)
- (add-to-list 'pacmacs--wall-cells
(pacmacs--make-wall-cell row column)))
+ (push (pacmacs--make-wall-cell row column)
pacmacs--wall-cells))
((char-equal x ?.)
- (add-to-list 'pacmacs--pills
(pacmacs--make-regular-pill row column)))
+ (push (pacmacs--make-regular-pill row column)
pacmacs--pills))
((char-equal x ?+)
- (add-to-list 'pacmacs--pills
(pacmacs--make-big-pill row column)))
+ (push (pacmacs--make-big-pill row column)
pacmacs--pills))
((char-equal x ?o)
(setq pacmacs--player-state (pacmacs--make-player
row column)))
((char-equal x ?g)
- (add-to-list 'pacmacs--ghosts (pacmacs--make-ghost
row column))))))
+ (push (pacmacs--make-ghost row column)
pacmacs--ghosts)))))
(pacmacs--fill-object-board)
diff --git a/tools/pacmacs-rr.el b/tools/pacmacs-rr.el
index dfef184645..b85b0b3a78 100644
--- a/tools/pacmacs-rr.el
+++ b/tools/pacmacs-rr.el
@@ -45,8 +45,8 @@
(defvar pacmacs-replay-finished-hook nil)
(defun pacmacs--record-action (action-name)
- (add-to-list 'pacmacs--recorded-actions
- (cons action-name pacmacs--tick-counter)))
+ (push (cons action-name pacmacs--tick-counter)
+ pacmacs--recorded-actions))
(defun pacmacs--reset-recorder ()
(setq pacmacs--tick-counter 0)
@@ -94,9 +94,8 @@
(defun pacmacs-replay-tick ()
(cl-incf pacmacs--tick-counter)
- (add-to-list 'pacmacs--tick-times
- (pacmacs--measure-time
- (pacmacs-tick)))
+ (push (pacmacs--measure-time (pacmacs-tick))
+ pacmacs--tick-times)
(if pacmacs--recorded-actions
(-let ((((action . tick-number) . _) pacmacs--recorded-actions))
- [nongnu] elpa/pacmacs 27c7ba7bbb 314/472: Update README about minimal version of Emacs (#165), (continued)
- [nongnu] elpa/pacmacs 27c7ba7bbb 314/472: Update README about minimal version of Emacs (#165), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs d6b63ef5b9 317/472: Merge pull request #166 from codingteam/drop-emacs-24.3-165, ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 3344de1bbe 322/472: Adapt render-track-board for new track board, ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 481eb8bd37 326/472: Merge pull request #169 from codingteam/distances-instead-of-directions-159, ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 31d7305439 331/472: Add 2nd big pill level (#162), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 862f9b7f9e 332/472: Add 3d big pill level (#162), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 375d85e49b 344/472: Add pacmacs-replay-finished-hook, ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs ffc0195b9a 346/472: Merge pull request #176 from codingteam/refactor-it-recorder, ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs ebeba826ce 356/472: Merge pull request #180 from codingteam/headers-urls-178, ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs ab77f7a391 360/472: Terrify already terrified ghosts first (#173), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 2425a26d88 364/472: Use push instead of add-to-list (#182),
ELPA Syncer <=
- [nongnu] elpa/pacmacs a90b8d6352 372/472: Clear wall cache on game start (#138), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 6bb1f0d0a7 375/472: Rename wall-blocks to wall-tiles (#138), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 20d89a67cf 384/472: Enable debug on error for ATT script (#138), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs a97d195e12 391/472: Merge pull request #188 from codingteam/qfix/move-measure-time-to-rr, ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 75e26090e5 393/472: Add UT for clear-wall-tiles-cache, ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 1b658fe6aa 405/472: Calc new score position (#134), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 508d15dff5 415/472: Fix compilation errors (#134), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 953f9901d9 421/472: Remove register-new-score function (#134), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 70864bb773 447/472: Indicate that score table is empty (#203), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs b9a63f204b 449/472: Rename render-board to render-object-board (#203), ELPA Syncer, 2022/01/06