aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/emms-url.el5
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)