From bd85ebf4d2b92226e77709bfbcb635b58c94a228 Mon Sep 17 00:00:00 2001 From: Johnathan Rabkin Date: Sat, 22 Feb 2014 22:45:31 -0500 Subject: Fix compilation warnings. --- lisp/emms-lastfm-client.el | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) (limited to 'lisp/emms-lastfm-client.el') 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) -- cgit v1.2.3