From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: Glenn Morris <gmorris+news@ast.cam.ac.uk>
Newsgroups: gmane.emacs.help
Subject: Re: standalone url-hexify-string?
Date: Fri, 25 Apr 2003 10:43:19 +0100
Organization: None
Sender: help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org
Message-ID: <x5ptnakj48.fsf@xpc21.ast.cam.ac.uk>
References: <7ir87rsp2f.fsf@neoscale.com>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1051263975 1125 80.91.224.249 (25 Apr 2003 09:46:15 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Fri, 25 Apr 2003 09:46:15 +0000 (UTC)
Original-X-From: help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org Fri Apr 25 11:46:13 2003
Return-path: <help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org>
Original-Received: from monty-python.gnu.org ([199.232.76.173])
	by main.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 198zmX-0000Hj-00
	for <gnu-help-gnu-emacs@m.gmane.org>; Fri, 25 Apr 2003 11:46:13 +0200
Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.10.13)
	id 198zlr-0001ab-04
	for gnu-help-gnu-emacs@m.gmane.org; Fri, 25 Apr 2003 05:45:31 -0400
Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!logbridge.uoregon.edu!server3.netnews.ja.net!south.jnrs.ja.net!server2.netnews.ja.net!pegasus.csx.cam.ac.uk!not-for-mail
Original-Newsgroups: gnu.emacs.help
Original-Lines: 47
Original-NNTP-Posting-Host: xpc21.ast.cam.ac.uk
X-Attribution: GM
Mail-Copies-To: never
User-Agent: Gnus (www.gnus.org), GNU Emacs
 (www.gnu.org/directory/emacs.html)
Cancel-Lock: sha1:pb5PTYOgGMYxN7qTOX+JVs9Vun4=
Original-Xref: shelby.stanford.edu gnu.emacs.help:112305
Original-To: help-gnu-emacs@gnu.org
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.1b5
Precedence: list
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
List-Archive: <http://mail.gnu.org/pipermail/help-gnu-emacs>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
Errors-To: help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org
Xref: main.gmane.org gmane.emacs.help:8804
X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:8804

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.