(let ((str (plist-to-compressed-string plist)))
(if base64
(string-to-base64-string str :uri t)
- (uriencode-string str))))
+ (encode-uri-string str))))
(defun url-string-to-plist (str &key (base64 t))
(let ((decode (if base64
(base64-string-to-string str :uri t)
- (uridecode-string str))))
+ (decode-uri-string str))))
(when decode
(ignore-errors (compressed-string-to-plist decode)))))