diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emms-lastfm-client.el | 13 | ||||
| -rw-r--r-- | lisp/emms-lastfm-scrobbler.el | 3 |
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) |