From: bg66 <bg66>
Date: Wed, 25 Oct 2006 04:15:36 +0000 (+0000)
Subject: * mixi.el (mixi-retrieve-function): Use `radio' instead of `choice'.
X-Git-Tag: cache-file-branchpoint~32
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e517db54fcddb37389476538c4f6779379c49ef7;p=elisp%2Fmixi.git

* mixi.el (mixi-retrieve-function): Use `radio' instead of `choice'.
(mixi-default-email): Ditto.
(mixi-default-password): Ditto.
(mixi-cache-expires): Ditto.
---

diff --git a/ChangeLog b/ChangeLog
index dc1ebf0..fc29404 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2006-10-25  OHASHI Akira  <bg66@koka-in.org>
+
+	* mixi.el (mixi-retrieve-function): Use `radio' instead of `choice'.
+	(mixi-default-email): Ditto.
+	(mixi-default-password): Ditto.
+	(mixi-cache-expires): Ditto.
+
 2006-10-25  Daiki Ueno  <ueno@unixuser.org>
 
 	* mixi.el (mixi-time-less-p): Normalize encoded time.
diff --git a/mixi.el b/mixi.el
index fc7c8fe..8901a1f 100644
--- a/mixi.el
+++ b/mixi.el
@@ -127,10 +127,10 @@
   (if (fboundp 'url-retrieve-synchronously)
       'mixi-w3-retrieve 'mixi-w3m-retrieve)
   "*The function for retrieving."
-  :type '(choice (const :tag "Using w3" mixi-w3-retrieve)
-		 (const :tag "Using w3m" mixi-w3m-retrieve)
-		 (const :tag "Using curl" mixi-curl-retrieve)
-		 (function :format "Other function: %v\n" :size 0))
+  :type '(radio (const :tag "Using w3" mixi-w3-retrieve)
+		(const :tag "Using w3m" mixi-w3m-retrieve)
+		(const :tag "Using curl" mixi-curl-retrieve)
+		(function :format "Other function: %v\n" :size 0))
   :group 'mixi)
 
 (defcustom mixi-curl-program "curl"
@@ -145,14 +145,14 @@
 
 (defcustom mixi-default-email nil
   "*Default E-mail address that is used to login automatically."
-  :type '(choice (string :tag "E-mail address")
-		 (const :tag "Asked when it is necessary" nil))
+  :type '(radio (string :tag "E-mail address")
+		(const :tag "Asked when it is necessary" nil))
   :group 'mixi)
 
 (defcustom mixi-default-password nil
   "*Default password that is used to login automatically."
-  :type '(choice (string :tag "Password")
-		 (const :tag "Asked when it is necessary" nil))
+  :type '(radio (string :tag "Password")
+		(const :tag "Asked when it is necessary" nil))
   :group 'mixi)
 
 (defcustom mixi-accept-adult-contents t
@@ -168,8 +168,8 @@ Increase this value when unexpected error frequently occurs."
 
 (defcustom mixi-cache-expires 3600
   "*Seconds for expiration of a cached object."
-  :type '(choice (integer :tag "Expired seconds")
-		 (const :tag "Don't expire" nil))
+  :type '(radio (integer :tag "Expired seconds")
+		(const :tag "Don't expire" nil))
   :group 'mixi)
 
 ;; FIXME: Not implemented.