Made uri-escaped-chars the complement of alphanum | mark.
This commit is contained in:
parent
7d188b8269
commit
886b8f7dd1
|
@ -116,8 +116,10 @@
|
||||||
;;; slashes and colons would be escaped.
|
;;; slashes and colons would be escaped.
|
||||||
|
|
||||||
(define uri-escaped-chars
|
(define uri-escaped-chars
|
||||||
(char-set-complement (char-set-union char-set:letter+digit
|
(char-set-complement
|
||||||
(string->char-set "$-_@.&!*\"'(),+"))))
|
;; RFC 2396 (URI Generic Syntax) specifies unreserved = alphanum | mark
|
||||||
|
(char-set-union char-set:letter+digit
|
||||||
|
(string->char-set "-_.!~*'()"))))
|
||||||
|
|
||||||
;;; Takes a set of chars to escape. This is because we sometimes need to
|
;;; Takes a set of chars to escape. This is because we sometimes need to
|
||||||
;;; escape larger sets of chars for different parts of a URI.
|
;;; escape larger sets of chars for different parts of a URI.
|
||||||
|
|
Loading…
Reference in New Issue