[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: standalone url-hexify-string?
From: |
Glenn Morris |
Subject: |
Re: standalone url-hexify-string? |
Date: |
Fri, 25 Apr 2003 10:43:19 +0100 |
User-agent: |
Gnus (www.gnus.org), GNU Emacs (www.gnu.org/directory/emacs.html) |
Kin Cho wrote:
> Anybody has a standalone version of this for gnu emacs?
Version on my system is defined as:
(defconst url-unreserved-chars
'(
?a ?b ?c ?d ?e ?f ?g ?h ?i ?j ?k ?l ?m ?n ?o ?p ?q ?r ?s ?t ?u ?v ?w ?x ?y
?z
?A ?B ?C ?D ?E ?F ?G ?H ?I ?J ?K ?L ?M ?N ?O ?P ?Q ?R ?S ?T ?U ?V ?W ?X ?Y
?Z
?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9
?$ ?- ?_ ?. ?! ?~ ?* ?' ?\( ?\) ?,)
"A list of characters that are _NOT_ reserve in the URL spec.
This is taken from draft-fielding-url-syntax-02.txt - check your local
internet drafts directory for a copy.")
(defun url-hexify-string (str)
"Escape characters in a string"
(mapconcat
(function
(lambda (char)
(if (not (memq char url-unreserved-chars))
(if (< char 16)
(upcase (format "%%0%x" char))
(upcase (format "%%%x" char)))
(char-to-string char))))
(mule-decode-string str) ""))
(defun mule-decode-string (str)
(and str
(case mule-sysdep-version
((2.4 3.0 xemacs)
(decode-coding-string str mule-retrieval-coding-system))
(2.3
(code-convert-string str *internal* mule-retrieval-coding-system))
;;; ((4.0 4.1)
((4.0 4.1 5.0) ; Emacs 21
(if default-enable-multibyte-characters
(decode-coding-string str mule-retrieval-coding-system)
str))
(otherwise
str))))
I seem to have mule-retrieval-coding-system set to 'euc-japan.