didierv  committed add056a

Misuse of the list widget type

  • Participants
  • Parent commits aedbf19

Comments (0)

Files changed (2)

File lisp/ChangeLog

+2007-09-04  Didier Verna  <>
+	* liece-vars.el (liece-timers): Fix misuse of the list widget type
+	(forgot this on in the patch below).
 2007-09-04  Didier Verna  <>
 	* liece-hilit.el (liece-quoted-colors-ircle): Fix misuse of the

File lisp/liece-vars.el

 ;;; Commentary:
 ;;; Code:
   "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
 	 (args (` ((, spec)))))
     (widget-put widget :args args)
 (defcustom liece-server-alist
   '(("WIDE Project Kyoto NOC, Japan"	    . "")
     ("WIDE Project Tokyo NOC, Japan"	    . "")
   :tag "Hooks"
   :prefix "liece-"
   :group 'liece)
 (defcustom liece-command-mode-hook nil
   "A hook for IRCHAT command mode."
   :type 'hook
   "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."
     (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
   "Default timeout interval."
   :type 'integer
   :group 'liece-server)
 (defcustom liece-timestamp-format (concat liece-timestamp-prefix "%s")
   "Format-string for timestamp."
   :type 'string
 buffer named *report-buffer* and all other messages are displayed on
   :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
   "If non-nil, display version description of current environment."
   :type 'boolean
   :group 'liece-vars)
 (provide 'liece-vars)
 ;;; liece-vars.el ends here