diff options
| -rw-r--r-- | lisp/emms-url.el | 5 |
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) |