emms-url: add emms-url-quote-underscore

The function is used in emms-lyrics, but was not commited previously.

1 files changed, 5 insertions, 0 deletions

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)