CVS update by didierv packages/xemacs-packages/liece/lisp ...

[xemacs-cvs at xemacs.org]

  User: didierv 
  Date: 07/09/04 11:11:45

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

Revision  Changes    Path
1.19      +5 -0      XEmacs/packages/xemacs-packages/liece/lisp/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/liece/lisp/ChangeLog,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -p -r1.18 -r1.19
--- ChangeLog	2007/09/04 09:04:59	1.18
+++ ChangeLog	2007/09/04 09:11:43	1.19
@@ -1,5 +1,10 @@
 2007-09-04  Didier Verna  <didier at xemacs.org>
 
+	* liece-vars.el (liece-timers): Fix misuse of the list widget type
+	(forgot this on in the patch below).
+
+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.



1.2       +9 -9      XEmacs/packages/xemacs-packages/liece/lisp/liece-vars.el

Index: liece-vars.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/liece/lisp/liece-vars.el,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- liece-vars.el	2002/03/23 05:51:38	1.1
+++ liece-vars.el	2007/09/04 09:11:43	1.2
@@ -25,7 +25,7 @@
 
 
 ;;; Commentary:
-;; 
+;;
 
 ;;; Code:
 
@@ -142,7 +142,7 @@ Useful for those (perverts) who use 24 l
   "Where to look for data files."
   :type 'directory
   :group 'liece-vars)
-  
+
 (defcustom liece-variables-file (expand-file-name "init.el" liece-directory)
   "Where to look for variables.  Helps to remove clutter from your .emacs.
 This feature is most likely to dissappear in near future.  The preferred
@@ -207,7 +207,7 @@ way is to put liece variables on .emacs 
 	 (args (` ((, spec)))))
     (widget-put widget :args args)
     widget))
-  
+
 (defcustom liece-server-alist
   '(("WIDE Project Kyoto NOC, Japan"	    . "irc.kyoto.wide.ad.jp")
     ("WIDE Project Tokyo NOC, Japan"	    . "irc.tokyo.wide.ad.jp")
@@ -334,7 +334,7 @@ Otherwise you might get killed again if 
   :tag "Hooks"
   :prefix "liece-"
   :group 'liece)
-  
+
 (defcustom liece-command-mode-hook nil
   "A hook for IRCHAT command mode."
   :type 'hook
@@ -434,7 +434,7 @@ Otherwise you might get killed again if 
   "How large percent should Current channel list window be on startup."
   :type 'integer
   :group 'liece-look)
-  
+
 ;; Highlight.
 (defcustom liece-highlight-mode t
   "If non nil, IRC buffer is highlighted by specific rule."
@@ -676,7 +676,7 @@ Default is what (system-name) returns."
     (liece-command-keepalive liece-keepalive-interval)
     (liece-command-poll-friends liece-poll-friends-interval))
   "Symbol name to store timer, timer-function and timer-interval."
-:type 'list
+:type '(repeat (list symbol symbol))
   :group 'liece-server)
 
 (defcustom liece-friends nil
@@ -724,7 +724,7 @@ Default is what (system-name) returns."
   "Default timeout interval."
   :type 'integer
   :group 'liece-server)
-  
+
 (defcustom liece-timestamp-format (concat liece-timestamp-prefix "%s")
   "Format-string for timestamp."
   :type 'string
@@ -891,7 +891,7 @@ would cause messages from and to channel
 buffer named *report-buffer* and all other messages are displayed on
 dialogue-buffer."
   :type '(repeat (cons (string :tag "Channel Name")
-                       (list (variable :tag "Buffe or Name"))))
+		       (list (variable :tag "Buffe or Name"))))
   :group 'liece-vars)
 
 (defcustom liece-channel-conversion-map nil
@@ -914,7 +914,7 @@ dialogue-buffer."
   "If non-nil, display version description of current environment."
   :type 'boolean
   :group 'liece-vars)
-  
+
 (provide 'liece-vars)
 
 ;;; liece-vars.el ends here