aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lisp/emms-lastfm-client.el13
-rw-r--r--lisp/emms-lastfm-scrobbler.el3
2 files changed, 11 insertions, 5 deletions
diff --git a/lisp/emms-lastfm-client.el b/lisp/emms-lastfm-client.el
index 2a8e0fa..06af881 100644
--- a/lisp/emms-lastfm-client.el
+++ b/lisp/emms-lastfm-client.el
@@ -137,6 +137,15 @@
to call on a success and CADDR is the function to call on
failure.")
+(defvar emms-lastfm-scrobbler-track-play-start-timestamp nil
+ "UTC timestamp.")
+
+(declare-function emms-lastfm-scrobbler-timestamp "emms-lastfm-scrobbler")
+(declare-function emms-lastfm-scrobbler-make-async-submission-call
+ "emms-lastfm-scrobbler")
+(declare-function emms-lastfm-scrobbler-handshake "emms-lastfm-scrobbler")
+
+
;;; ------------------------------------------------------------------
;;; API method call
;;; ------------------------------------------------------------------
@@ -285,7 +294,7 @@ This function includes the cryptographic signature."
(defun emms-lastfm-client-construct-lexi (arguments)
"Return ARGUMENTS sorted in lexicographic order."
(let ((lexi (sort arguments
- '(lambda (a b) (string< (car a) (car b)))))
+ #'(lambda (a b) (string< (car a) (car b)))))
(out ""))
(while lexi
(setq out (concat out (caar lexi) (cdar lexi)))
@@ -989,7 +998,7 @@ This function includes the cryptographic signature."
(when (or (not data)
(not (listp data)))
(error "no artist info to parse"))
- (let ((c (copy-seq (nth 1 data)))
+ (let ((c (copy-sequence (nth 1 data)))
artist-name lastfm-url artist-image
stats-listeners stats-playcount
bio-summary bio-complete)
diff --git a/lisp/emms-lastfm-scrobbler.el b/lisp/emms-lastfm-scrobbler.el
index cfc9a75..ddb6500 100644
--- a/lisp/emms-lastfm-scrobbler.el
+++ b/lisp/emms-lastfm-scrobbler.el
@@ -72,9 +72,6 @@ To submit every track to Last.fm, set this to t."
(defvar emms-lastfm-scrobbler-client-identifier "emm"
"Client identifier for Emms (Last.fm define this, not us).")
-(defvar emms-lastfm-scrobbler-track-play-start-timestamp nil
- "UTC timestamp.")
-
;; 1.3 Authentication Token for Web Services Authentication: token =
;; md5(shared_secret + timestamp)