[elpa] externals/javaimp 4fa5d2a 12/32: * packages/javaimp/javaimp.el: Fix some compiler warnings

[Stefan Monnier]

branch: externals/javaimp
commit 4fa5d2a713d91d1541665dadf6f733f34657707b
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * packages/javaimp/javaimp.el: Fix some compiler warnings
---
 javaimp.el | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/javaimp.el b/javaimp.el
index 68079c0..ca1a710 100644
--- a/javaimp.el
+++ b/javaimp.el
@@ -1,6 +1,6 @@
 ;;; javaimp.el --- Add and reorder Java import statements in Maven projects  
-*- lexical-binding: t; -*-
 
-;; Copyright (C) 2014  Free Software Foundation, Inc.
+;; Copyright (C) 2014, 2015  Free Software Foundation, Inc.
 
 ;; Author: Filipp Gunbin <fgunbin@fastmail.fm>
 ;; Maintainer: Filipp Gunbin <fgunbin@fastmail.fm>
@@ -90,6 +90,9 @@
 
 ;;; User options
 
+(defgroup javaimp ()
+  "Add and reorder Java import statements in Maven projects.")
+
 (defcustom javaimp-import-group-alist '(("\\`javax?\\." . 10))
   "Specifies how to group classes and how to order resulting groups in the
 imports list.  Each element should be of the form `(CLASSNAME-REGEXP
@@ -191,6 +194,8 @@ class name.  The order of classes which were not matched is 
defined by
 
 ;; An artifact is represented as a list: (GROUP-ID ARTIFACT-ID VERSION).
 
+;; FIXME: use cl-defstruct!
+
 (defun javaimp-make-artifact (group-id artifact-id version)
   (list group-id artifact-id version))
 
@@ -201,13 +206,13 @@ class name.  The order of classes which were not matched 
is defined by
   (cadr artifact))
 
 (defun javaimp-artifact-version (artifact)
-  (caddr artifact))
+  (nth 2 artifact))
 
 (defun javaimp-artifact-to-string (artifact)
   (format "%s:%s:%s"
          (javaimp-artifact-artifact-id artifact)
          (javaimp-artifact-group-id artifact)
-         (javaimp-artifact-version (artifact))))
+         (javaimp-artifact-version artifact))) ;FIXME: `artifact' is not a 
function!
 
 (defun javaimp-parse-artifact (artifact)
   (apply #'javaimp-make-artifact (split-string artifact ":")))
@@ -271,7 +276,7 @@ with POM"
   (javaimp-call-mvn
    pom "help:effective-pom"
    (lambda ()
-     (let (xml-start-pos xml-end-pos start-tag)
+     (let (xml-start-pos xml-end-pos)
        ;; find where we should start parsing XML
        (goto-char (point-min))
        (re-search-forward "<\\?xml\\|<projects?>")