mlang pushed a commit to branch externals/chess
in repository elpa.
commit 4ab6c335594387cf66efb28c528946a3d3c1db8f
Author: Mario Lang
Date: Sat Jun 28 13:27:58 2014 +0200
* chess-pos.el (chess-pos-search*)
* chess-input.el (chess-input-display-moves): cl-delete-duplicates ->
delete-dups.
* chess-pos.el (chess-pos-piece-p, chess-pos-search*)
(chess-search-position)
* chess-ply.el (chess-ply-create, chess-legal-plies)
* chess-plain.el (chess-plain-piece-text)
* chess-fen.el (chess-pos-to-fen)
* chess-display.el (chess-display-select-piece)
* chess-algebraic.el (chess-algebraic-to-ply): Use `=' instead of `eq'
to compare pieces.
---
ChangeLog | 15 +++
chess-algebraic.el |2 +-
chess-display.el |2 +-
chess-fen.el |8
chess-input.el |2 +-
chess-plain.el |2 +-
chess-ply.el |4 ++--
chess-pos.el | 22 +++---
8 files changed, 36 insertions(+), 21 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index e5b9a71..e597fa6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,18 @@
+2014-06-25 Mario Lang
+
+ * chess-pos.el (chess-pos-search*)
+ * chess-input.el (chess-input-display-moves): cl-delete-duplicates ->
+ delete-dups.
+
+ * chess-pos.el (chess-pos-piece-p, chess-pos-search*)
+ (chess-search-position)
+ * chess-ply.el (chess-ply-create, chess-legal-plies)
+ * chess-plain.el (chess-plain-piece-text)
+ * chess-fen.el (chess-pos-to-fen)
+ * chess-display.el (chess-display-select-piece)
+ * chess-algebraic.el (chess-algebraic-to-ply): Use `=' instead of `eq'
+ to compare pieces.
+
2014-06-24 Mario Lang
* chess-ply.el (chess-ply-p): New function.
diff --git a/chess-algebraic.el b/chess-algebraic.el
index 5ca7895..808d3e0 100644
--- a/chess-algebraic.el
+++ b/chess-algebraic.el
@@ -102,7 +102,7 @@ This regexp matches short, long and figurine notation.")
(mate (match-string 8 move))
(piece (aref move 0))
changes type)
- (if (or (eq piece ?O) (eq piece ?0))
+ (if (or (= piece ?O) (= piece ?0))
(setq changes (chess-ply-castling-changes
position (= (length (match-string 1 move)) 5)))
(let ((promotion (match-string 7 move)))
diff --git a/chess-display.el b/chess-display.el
index 537ac6c..fa4358c 100644
--- a/chess-display.el
+++ b/chess-display.el
@@ -1233,7 +1233,7 @@ Clicking once on a piece selects it; then click on the
target location."
(setq chess-display-last-selected nil))
(let ((piece (chess-pos-piece position coord)))
(cond
- ((eq piece ? )
+ ((= piece ? )
(throw 'message (chess-string 'selected-empty)))
((not (or chess-display-edit-mode
(not (chess-display-active-p))
diff --git a/chess-fen.el b/chess-fen.el
index f3a2eb0..52bdf9e 100644
--- a/chess-fen.el
+++ b/chess-fen.el
@@ -145,11 +145,11 @@ If FULL is non-nil, represent trailing spaces as well."
(if (and index
(let ((pawn (if (chess-pos-side-to-move position) ?P ?p)))
(or (and (chess-incr-index index 0 -1)
- (eq (chess-pos-piece position (chess-incr-index
-index 0 -1)) pawn))
+ (chess-pos-piece-p position (chess-incr-index
+ index 0 -1) pawn))
(and (chess-incr-index index 0 1)
- (eq (chess-pos-piece position (chess-incr-index
-index 0 1)) pawn)
+ (chess-pos-piece-p position (chess-incr-index
+ index 0 1) pawn)
(concat str (chess-index-to-coord
(if (chess-pos-side-to-move position)
(chess-incr-index index -1 0)
diff --git a/chess-input.el b/chess-input.el
index f3cc893..500fd21 100644
--- a/chess-input.el
+++ b/chess-input.el
@@ -83,7 +83,7 @@
(when (> (length chess-input-move-string) 0)
(when chess-display-highlight-legal
(apply #'chess-display-highlight
-nil (cl-delete-duplicates (mapcar #'chess-ply-target move-list
+nil (delete-dups (mapcar #'chess-ply-target move-list
(message "[%s] %s" chess-input-move-string
(mapconcat (lambda (ply)
(chess-ply-to-algebraic ply
chess-input-notation-type))
diff --git a/chess-plain.el b/chess-plain.el
index e5e1412..190d263 100644
--- a/chess-plain.el
+++ b/chess-plain.el
@@ -256,7 +256,7 @@ modify `chess-plain-piece-chars' to avoid real confusion.)"
(defun chess-plain-piece-text (piece rank file)
(let ((wh
