mlang pushed a commit to branch externals/chess
in repository elpa.
commit cf7497969a25b9424ca7aeff230b720c75c75a88
Author: Mario Lang <ml...@delysid.org>
Date: Sun Jun 29 17:16:37 2014 +0200
* chess-algebraic.el (chess-algebraic-to-ply): Remove dead code.
---
ChangeLog | 4 ++++
chess-algebraic.el | 14 +++++---------
2 files changed, 9 insertions(+), 9 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index e597fa6..935ae2b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2014-06-29 Mario Lang <ml...@delysid.org>
+
+ * chess-algebraic.el (chess-algebraic-to-ply): Remove dead code.
+
2014-06-25 Mario Lang <ml...@delysid.org>
* chess-pos.el (chess-pos-search*)
diff --git a/chess-algebraic.el b/chess-algebraic.el
index 808d3e0..42b64f1 100644
--- a/chess-algebraic.el
+++ b/chess-algebraic.el
@@ -138,13 +138,12 @@ This regexp matches short, long and figurine notation.")
(list (car candidates) target)
(if (null source)
(chess-error 'clarify-piece)
- (nconc changes (list :which source))
(while candidates
(if (if (>= source ?a)
(eq (chess-index-file (car candidates))
(- source ?a))
- (eq (chess-index-rank (car candidates))
- (- 7 (- source ?1))))
+ (= (chess-index-rank (car candidates))
+ (- 7 (- source ?1))))
(setq which (car candidates)
candidates nil)
(setq candidates (cdr candidates))))
@@ -220,12 +219,9 @@ Finally, `:numeric' generates ICCF numeric notation (like
\"2133\"."
(setq rank (1+ rank)))
(when (= (chess-index-file candidate) from-file)
(setq file (1+ file))))
- (cond
- ((= file 1)
- (setq differentiator (+ from-file ?a)))
- ((= rank 1)
- (setq differentiator (+ (- 7 from-rank) ?1)))
- (t (chess-error 'could-not-diff)))
+ (cond ((= file 1) (setq differentiator (+ from-file ?a)))
+ ((= rank 1) (setq differentiator (+ (- 7 from-rank) ?1)))
+ (t (chess-error 'could-not-diff)))
(chess-ply-set-keyword ply :which differentiator))))
(concat
(unless (= (upcase from-piece) ?P)
