improved split-string

master
Avril 4 years ago
parent 212e5f76e1
commit 0e545a3a1c
Signed by: flanchan
GPG Key ID: 284488987C31F630

@ -587,7 +587,7 @@
,(cons 'cond exprs)))) ,(cons 'cond exprs))))
(defun split-string (string &optional sep) (defun split-string (string &optional sep)
"Split a string by this seperator (or `:whitespace', if not provided" "Split a string by this seperator (or whitespace, if not provided)"
(let* ((sep (or (switch sep (let* ((sep (or (switch sep
(#\Newline "[\\n\\f\\r]") (#\Newline "[\\n\\f\\r]")
(#\Space " ") (#\Space " ")

Loading…
Cancel
Save