From e517db54fcddb37389476538c4f6779379c49ef7 Mon Sep 17 00:00:00 2001 From: bg66 Date: Wed, 25 Oct 2006 04:15:36 +0000 Subject: [PATCH] * mixi.el (mixi-retrieve-function): Use `radio' instead of `choice'. (mixi-default-email): Ditto. (mixi-default-password): Ditto. (mixi-cache-expires): Ditto. --- ChangeLog | 7 +++++++ mixi.el | 20 ++++++++++---------- 2 files changed, 17 insertions(+), 10 deletions(-) diff --git a/ChangeLog b/ChangeLog index dc1ebf0..fc29404 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2006-10-25 OHASHI Akira + + * 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 * 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. -- 1.7.10.4