Commits

Anonymous committed aedbf19

Misuse of the list widget type

Comments (0)

Files changed (3)

+2007-09-04  Didier Verna  <didier@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@xemacs.org>
 
 	* liece-minibuf.el: Require 'liece-channel and 'liece-inlines when
 	compiling.
-	
+
 2003-04-17  Daiki Ueno  <daiki@xemacs.org>
 
 	* liece-channel.el: Require 'liece-misc when compiling.
 	* 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.
 
 
 	* 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@unixuser.org>
 
 	* liece-inlines.el (string-equal-ignore-case): Don't try to use
 	'compare-strings'.
- 
+
 2002-05-19  Daiki Ueno  <ueno@unixuser.org>
 
 	* liece-xemacs.el (liece-xemacs-modeline-glyph): Check 'xbm.
 
 2001-10-05   Daiki Ueno  <ueno@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@unixuser.org>
 	when non-current channel message is received.
 	(liece-xemacs-channel-balloon-kill): New function.
 	Kill the balloon icon.
-	
+
 2000-08-17   Daiki Ueno  <ueno@unixuser.org>
 
 	* liece.el (liece-server-keyword-map): Bind connection type.

lisp/liece-hilit.el

 
 
 ;;; Commentary:
-;; 
+;;
 
 ;;; Code:
 
   "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
     "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
     "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

lisp/liece-tcp.el

 
 (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
 
 (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)))