diff options
| author | Johnathan Rabkin <yonirabkin@member.fsf.org> | 2014-02-22 22:45:31 -0500 |
|---|---|---|
| committer | Johnathan Rabkin <yonirabkin@member.fsf.org> | 2014-02-22 22:45:31 -0500 |
| commit | bd85ebf4d2b92226e77709bfbcb635b58c94a228 (patch) | |
| tree | 6fe111f9efc5d7159f4581193411e2b5c444a2a0 /lisp/emms-lastfm-client.el | |
| parent | 2421caf63006e310f85a97143ba83f4f1b0d8391 (diff) | |
Fix compilation warnings.
Diffstat (limited to 'lisp/emms-lastfm-client.el')
| -rw-r--r-- | lisp/emms-lastfm-client.el | 13 |
1 files changed, 11 insertions, 2 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) |