From 8a45d190bfc5e4728f2bcab5674636c0779f7074 Mon Sep 17 00:00:00 2001 From: Tassilo Horn Date: Mon, 16 Jun 2008 21:35:57 +0200 Subject: Make emms-lastfm-protocol-version a constant and fix a typo. --- emms-lastfm.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'emms-lastfm.el') diff --git a/emms-lastfm.el b/emms-lastfm.el index 4fb851a..1f597d7 100644 --- a/emms-lastfm.el +++ b/emms-lastfm.el @@ -134,6 +134,8 @@ procedure. Only for internal use.") "The client ID of EMMS. Don't change it!") (defconst emms-lastfm-client-version 0.2 "The version registered at last.fm. Don't change it!") +(defconst emms-lastfm-protocol-version 1.2 + "The version of the supported last.fm protocol. Don't change it.") ;; used internally (defvar emms-lastfm-process nil "-- only used internally --") @@ -169,7 +171,7 @@ paused track resumes) and sets the track submission timer." (setq emms-lastfm-timer (run-with-timer secs nil 'emms-lastfm-submit-track)))))) ;; Update the now playing info displayed on the user's last.fm page. This - ;; doesn't affect the user's profile, so it con be done even for tracks that + ;; doesn't affect the user's profile, so it can be done even for tracks that ;; should not be submitted. (emms-lastfm-submit-now-playing)) @@ -338,7 +340,8 @@ handshake." (let ((timestamp (emms-lastfm-current-unix-time-string))) (emms-lastfm-http-GET (concat emms-lastfm-server - "?hs=true&p=1.2" + "?hs=true" + "&p=" (number-to-string emms-lastfm-protocol-version) "&c=" emms-lastfm-client-id "&v=" (number-to-string emms-lastfm-client-version) "&u=" (emms-url-quote emms-lastfm-username) -- cgit v1.2.3