CVS update by didierv packages/xemacs-packages/liece/lisp, liece-tcp.el ...

[xemacs-cvs at xemacs.org]

  User: didierv 
  Date: 07/09/04 11:05:02

  Modified:    packages/xemacs-packages/liece/lisp ChangeLog liece-hilit.el
                        liece-tcp.el
Log:
Misuse of the list widget type

Revision  Changes    Path
1.18      +13 -6     XEmacs/packages/xemacs-packages/liece/lisp/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/liece/lisp/ChangeLog,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -p -r1.17 -r1.18
--- ChangeLog	2004/01/15 23:02:37	1.17
+++ ChangeLog	2007/09/04 09:04:59	1.18
@@ -1,8 +1,15 @@
+2007-09-04  Didier Verna  <didier at xemacs.org>
+
+	* liece-hilit.el (liece-quoted-colors-ircle): Fix misuse of the
+	list widget type.
+	* liece-hilit.el (liece-quoted-colors-mirc): Ditto.
+	* liece-tcp.el (liece-tcp-rlogin-parameters): Ditto.
+
 2003-11-29  Jerry James  <james at xemacs.org>
 
 	* liece-minibuf.el: Require 'liece-channel and 'liece-inlines when
 	compiling.
-	
+
 2003-04-17  Daiki Ueno  <daiki at xemacs.org>
 
 	* liece-channel.el: Require 'liece-misc when compiling.
@@ -27,7 +34,7 @@
 	* Makefile.lisp:
 	* Makefile.lisp (autoload): New.
 	Separate autoload building from elc building.
-	
+
 	* liece-make.el (install-update-package-files):
 	Use new `batch-update-directory-autoloads' if available.
 
@@ -54,7 +61,7 @@
 
 	* liece-handle.el (liece-handle-quit-message): Don't use
 	liece-nick-mark-as-apart.
-	(liece-handle-join-message): Ditto.	
+	(liece-handle-join-message): Ditto.
 	[cf. <Liece:00080>]
 
 2002-09-01  Daiki Ueno  <ueno at unixuser.org>
@@ -124,7 +131,7 @@
 
 	* liece-inlines.el (string-equal-ignore-case): Don't try to use
 	'compare-strings'.
- 
+
 2002-05-19  Daiki Ueno  <ueno at unixuser.org>
 
 	* liece-xemacs.el (liece-xemacs-modeline-glyph): Check 'xbm.
@@ -225,7 +232,7 @@
 
 2001-10-05   Daiki Ueno  <ueno at unixuser.org>
 
-	* liece-misc.el (liece-time-difference): Fix the arglist.	
+	* liece-misc.el (liece-time-difference): Fix the arglist.
 	[cf. <Liece:45>]
 
 2001-10-02   Daiki Ueno  <ueno at unixuser.org>
@@ -684,7 +691,7 @@
 	when non-current channel message is received.
 	(liece-xemacs-channel-balloon-kill): New function.
 	Kill the balloon icon.
-	
+
 2000-08-17   Daiki Ueno  <ueno at unixuser.org>
 
 	* liece.el (liece-server-keyword-map): Bind connection type.



1.2       +5 -5      XEmacs/packages/xemacs-packages/liece/lisp/liece-hilit.el

Index: liece-hilit.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/liece/lisp/liece-hilit.el,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- liece-hilit.el	2002/03/23 05:51:28	1.1
+++ liece-hilit.el	2007/09/04 09:04:59	1.2
@@ -25,7 +25,7 @@
 
 
 ;;; Commentary:
-;; 
+;;
 
 ;;; Code:
 
@@ -70,7 +70,7 @@
   "Face used for displaying \"*** Wallops:\" line."
   :type 'face
   :group 'liece-highlight-faces)
-  
+
 (defcustom liece-error-face 'liece-error-face
   "Face used for displaying \"*** Error:\" line."
   :type 'face
@@ -131,7 +131,7 @@
     "cyan4" "turquoise" "blue" "black" "black" "black" "black" "black"
     "DarkBlue" "purple1" "purple2" "purple3" "magenta")
   "Color list for displaying \003 quoted string."
-:type '(list (radio string face))
+:type '(repeat (radio string face))
   :group 'liece-highlight)
 
 (defcustom liece-quoted-colors-mirc
@@ -139,9 +139,9 @@
     "orange" "yellow" "green" "cyan4" "turquoise" "RoyalBlue" "HotPink"
     "gray50" "gray75" "black" "black" "black" "black")
   "Color list for displaying \013 quoted string."
-:type '(list (radio string face))
+:type '(repeat (radio string face))
   :group 'liece-highlight)
-  
+
 (defcustom liece-highlight-jingle-function nil
   "Function playing jingles."
   :type 'function



1.2       +4 -4      XEmacs/packages/xemacs-packages/liece/lisp/liece-tcp.el

Index: liece-tcp.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/liece/lisp/liece-tcp.el,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- liece-tcp.el	2002/03/23 05:51:36	1.1
+++ liece-tcp.el	2007/09/04 09:04:59	1.2
@@ -98,7 +98,7 @@ The default is \"rsh\", but \"ssh\" is a
 
 (defcustom liece-tcp-rlogin-parameters '("socket" "-q")
   "Parameters to `liece-tcp-open-rlogin'."
-:type 'list
+:type '(repeat string)
   :group 'liece-tcp)
 
 (defcustom liece-tcp-rlogin-user-name nil
@@ -148,9 +148,9 @@ Fourth arg SERVICE is name of the servic
 
 (defun liece-tcp-open-ssl-stream-1 (name buffer server service extra-arg)
   (let* ((service (or service liece-tcp-ssl-default-service))
-         (ssl-program-arguments (list extra-arg "-connect"
-                                      (format "%s:%d" server service)))
-         (process (open-ssl-stream name buffer server service)))
+	 (ssl-program-arguments (list extra-arg "-connect"
+				      (format "%s:%d" server service)))
+	 (process (open-ssl-stream name buffer server service)))
     (and process (memq (process-status process) '(open run))
 	 process)))