Made uri-escaped-chars the complement of alphanum | mark.

This commit is contained in:
mainzelm 2003-06-25 07:49:54 +00:00
parent 7d188b8269
commit 886b8f7dd1
1 changed files with 4 additions and 2 deletions

View File

@ -116,8 +116,10 @@
;;; slashes and colons would be escaped.
(define uri-escaped-chars
(char-set-complement (char-set-union char-set:letter+digit
(string->char-set "$-_@.&!*\"'(),+"))))
(char-set-complement
;; 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
;;; escape larger sets of chars for different parts of a URI.