Mercurial > hg > xemacs-beta
diff lisp/w3/w3-forms.el @ 114:8619ce7e4c50 r20-1b9
Import from CVS: tag r20-1b9
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:21:54 +0200 |
parents | 360340f9fd5f |
children | 9f59509498e1 |
line wrap: on
line diff
--- a/lisp/w3/w3-forms.el Mon Aug 13 09:20:50 2007 +0200 +++ b/lisp/w3/w3-forms.el Mon Aug 13 09:21:54 2007 +0200 @@ -1,7 +1,7 @@ ;;; w3-forms.el --- Emacs-w3 forms parsing code for new display engine ;; Author: wmperry -;; Created: 1997/03/07 14:26:02 -;; Version: 1.77 +;; Created: 1997/03/18 23:20:04 +;; Version: 1.79 ;; Keywords: faces, help, comm, data, languages ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -249,7 +249,9 @@ (make-variable-buffer-local 'w3-custom-options) (defun w3-form-create-custom (el face) - (require 'custom-edit) + (condition-case () + (require 'cus-edit) + (error (require 'custom-edit))) (let* ((name (w3-form-element-name el)) (var-name (w3-form-element-value el)) (type (plist-get (w3-form-element-plist el) 'custom-type)) @@ -885,7 +887,6 @@ (lambda (char) (cond ((= char ? ) "+") - ((memq char '(?: ?/)) (char-to-string char)) ((memq char url-unreserved-chars) (char-to-string char)) (t (upcase (format "%%%02x" char)))))) (mule-encode-string chunk) ""))