From 55ff581b1e7d8b0b290834e87221baadd95db1ff Mon Sep 17 00:00:00 2001
From: Rasmus <rasmus@gmx.us>
Date: Tue, 19 May 2015 16:36:41 +0200
Subject: emms-url: add emms-url-quote-underscore

The function is used in emms-lyrics, but was not commited previously.
---
 lisp/emms-url.el | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'lisp')

diff --git a/lisp/emms-url.el b/lisp/emms-url.el
index 66c87bc..59d5cfa 100644
--- a/lisp/emms-url.el
+++ b/lisp/emms-url.el
@@ -84,6 +84,11 @@ e.g.,
   (emms-replace-regexp-in-string
    " " "+" (emms-url-quote s (concat safe " "))))
 
+(defun emms-url-quote-underscore (s &optional safe)
+  "Run (emms-url-quote s \" \"), then replace ` ' with `_'."
+  (emms-replace-regexp-in-string
+   " " "_" (emms-url-quote s (concat safe " "))))
+
 (defun emms-http-content-coding ()
   (save-match-data
     (and (boundp 'url-http-content-type)
-- 
cgit v1.2.3