NOTE: This patch has been committed. The version below is
informational only (whitespace differences have been removed).
		Dear reviewers,
	the following patch fixes some misues of the list widget type.
xemacs-packages/w3/ChangeLog addition:
2007-09-04  Didier Verna  <didier(a)xemacs.org>
	* lisp/ssl.el (ssl-view-certificate-program-arguments): Fix misuse
	of the list widget type.
	* lisp/ssl.el (ssl-program-arguments): Ditto.
	* lisp/w3-java.el (w3-java-vm-arguments): Ditto.
XEmacs Packages source patch:
Diff command:   cvs -q diff -u -t -b -B -w
Files affected: xemacs-packages/w3/lisp/w3-java.el xemacs-packages/w3/lisp/ssl.el
Index: xemacs-packages/w3/lisp/ssl.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/w3/lisp/ssl.el,v
retrieving revision 1.4
diff -u -u -t -b -B -w -r1.4 ssl.el
--- xemacs-packages/w3/lisp/ssl.el	27 Nov 1999 15:37:18 -0000	1.4
+++ xemacs-packages/w3/lisp/ssl.el	4 Sep 2007 09:14:16 -0000
@@ -66,7 +66,7 @@
 The certificate is piped to it.
 Maybe a way of passing a file should be implemented"
   :group 'ssl
-:type 'list)
+:type '(repeat string))
 
 (defcustom ssl-certificate-directory-style 'ssleay
   "*Style of cert database to use, the only valid value right now is `ssleay'.
@@ -99,11 +99,16 @@
   "*Arguments that should be passed to the program `ssl-program-name'.
 This should be used if your SSL program needs command line switches to
 specify any behaviour (certificate file locations, etc).
-The special symbols 'host and 'port may be used in the list of arguments
-and will be replaced with the hostname and service/port that will be connected
-to."
-:group 'ssl
-:type 'list)
+The special symbols 'host and 'service may be used in the list of
+arguments and will be replaced with the hostname and service/port that
+will be connected to."
+:group 'ssl
+:type '(repeat (choice string
+                         (const :tag "Host" :value host)
+                         (const :tag "Service" :value service)
+                         (const :tag "SSL certificate directory"
+:value ssl-certificate-directory)
+                         sexp)))
 
 (defun ssl-certificate-information (der)
   "Return an assoc list of information about a certificate in DER format."
Index: xemacs-packages/w3/lisp/w3-java.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/w3/lisp/w3-java.el,v
retrieving revision 1.1
diff -u -u -t -b -B -w -r1.1 w3-java.el
--- xemacs-packages/w3/lisp/w3-java.el	27 Nov 1999 15:37:20 -0000	1.1
+++ xemacs-packages/w3/lisp/w3-java.el	4 Sep 2007 09:14:16 -0000
@@ -41,7 +41,7 @@
 The special symbol 'file may be used in the list of arguments and will
 be replaced with the name of a file containing the commands to run a
 Java applet."
-:type 'list
+:type 'sexp
   :group 'w3-java)
 
 (defun w3-java-run-applet (options params)
-- 
MySpace: 
http://www.myspace.com/didierverna
Didier Verna, didier(a)lrde.epita.fr, 
http://www.lrde.epita.fr/~didier
EPITA / LRDE, 14-16 rue Voltaire   Tel.+33 (1) 44 08 01 85
94276 Le Kremlin-Bicêtre, France   Fax.+33 (1) 53 14 59 22   didier(a)xemacs.org
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches