Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-forms.el @ 38:1a767b41a199 r19-15b102

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b102
author cvs
date Mon, 13 Aug 2007 08:54:01 +0200
parents c53a95d3c46d
children 8d2a9b52c682
comparison
equal deleted inserted replaced
37:ad40ac360d14 38:1a767b41a199
1 ;;; w3-forms.el --- Emacs-w3 forms parsing code for new display engine 1 ;;; w3-forms.el --- Emacs-w3 forms parsing code for new display engine
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/03/15 00:31:11 3 ;; Created: 1997/03/18 23:20:04
4 ;; Version: 1.78 4 ;; Version: 1.79
5 ;; Keywords: faces, help, comm, data, languages 5 ;; Keywords: faces, help, comm, data, languages
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
885 (mapconcat 885 (mapconcat
886 (function 886 (function
887 (lambda (char) 887 (lambda (char)
888 (cond 888 (cond
889 ((= char ? ) "+") 889 ((= char ? ) "+")
890 ((memq char '(?: ?/)) (char-to-string char))
891 ((memq char url-unreserved-chars) (char-to-string char)) 890 ((memq char url-unreserved-chars) (char-to-string char))
892 (t (upcase (format "%%%02x" char)))))) 891 (t (upcase (format "%%%02x" char))))))
893 (mule-encode-string chunk) "")) 892 (mule-encode-string chunk) ""))
894 893
895 (defun w3-form-encode-application/x-www-form-urlencoded (result) 894 (defun w3-form-encode-application/x-www-form-urlencoded (result)