[elpa] 01/06: * chess-algebraic.el (chess-algebraic-to-ply): Remove dead code.

[Mario Lang]

mlang pushed a commit to branch externals/chess
in repository elpa.

commit cf7497969a25b9424ca7aeff230b720c75c75a88
Author: Mario Lang <address@hidden>
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  <address@hidden>
+
+       * chess-algebraic.el (chess-algebraic-to-ply): Remove dead code.
+
 2014-06-25  Mario Lang  <address@hidden>
 
        * 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)