branch: elpa/pacmacs
commit 3cbd9508d8e1a8112f7255bb3648b2802fefbb8d
Merge: 6365c3db7b 427b4f823e
Author: rexim <[email protected]>
Commit: rexim <[email protected]>
Merge branch 'coverage-broken-68'. Close #68
---
pacmacs-anim.el | 4 ++--
pacmacs-utils.el | 2 +-
pacmacs.el | 22 +++++++++++-----------
test/pacman-anim-test.el | 4 ++--
4 files changed, 16 insertions(+), 16 deletions(-)
diff --git a/pacmacs-anim.el b/pacmacs-anim.el
index 6704119354..ac4fc718b8 100644
--- a/pacmacs-anim.el
+++ b/pacmacs-anim.el
@@ -73,8 +73,8 @@
(defun pacmacs-convert-aseprite-frame (aseprite-frame)
(let* ((frame (cdr (assoc 'frame (cdr aseprite-frame))))
(duration (cdr (assoc 'duration (cdr aseprite-frame)))))
- (pacmacs-make-frame (mapcar (lambda (n)
- (cdr (assoc n frame)))
+ (pacmacs-make-frame (mapcar #'(lambda (n)
+ (cdr (assoc n frame)))
'(x y w h))
duration)))
diff --git a/pacmacs-utils.el b/pacmacs-utils.el
index 8d0aea6147..a0631cdf51 100644
--- a/pacmacs-utils.el
+++ b/pacmacs-utils.el
@@ -33,7 +33,7 @@
;;; Code:
(defmacro plist-bind (keys expr &rest body)
- (declare (indent 2) (debug t))
+ (declare (indent 2) (debug (sexp form &rest form)))
(let ((expr-name (gensym)))
`(let* ((,expr-name ,expr)
,@(mapcar #'(lambda (key)
diff --git a/pacmacs.el b/pacmacs.el
index 00878a9740..c75260922f 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -154,11 +154,11 @@
(defun pacmacs--object-at-p (row column objects)
(member (cons row column)
- (mapcar (lambda (object)
- (plist-bind ((row :row)
- (column :column))
- object
- (cons row column)))
+ (mapcar #'(lambda (object)
+ (plist-bind ((row :row)
+ (column :column))
+ object
+ (cons row column)))
objects)))
(defun pacmacs--wall-at-p (row column)
@@ -284,12 +284,12 @@
(when pill
(setq pacmacs-score (+ pacmacs-score 10))
(setq pacmacs-pills
- (remove-if (lambda (pill)
- (plist-bind ((p-row :row)
- (p-column :column))
- pill
- (and (= row p-row)
- (= column p-column))))
+ (remove-if #'(lambda (pill)
+ (plist-bind ((p-row :row)
+ (p-column :column))
+ pill
+ (and (= row p-row)
+ (= column p-column))))
pacmacs-pills)))))
(pacmacs--recalc-track-board)
diff --git a/test/pacman-anim-test.el b/test/pacman-anim-test.el
index c26629cdf6..a55ffe85df 100644
--- a/test/pacman-anim-test.el
+++ b/test/pacman-anim-test.el
@@ -11,8 +11,8 @@
(should (equal 3 (pacmacs-anim-get-frame anim)))))
(ert-deftest pacmacs-anim-next-frame-test ()
- (let ((anim (list :frames (mapcar (lambda (x)
- (pacmacs-make-frame (+ 41 x) 100))
+ (let ((anim (list :frames (mapcar #'(lambda (x)
+ (pacmacs-make-frame (+ 41 x) 100))
(number-sequence 1 4))
:current-frame 2
:duration-counter 0)))
