From: bg66 <bg66>
Date: Fri, 4 Feb 2005 01:59:22 +0000 (+0000)
Subject: * riece-google.el (riece-google-default-lang): Change value.
X-Git-Tag: riece-1_0_7~57
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f82f91ea7d270283dfd1970a89830a84217187d9;p=elisp%2Friece.git

* riece-google.el (riece-google-default-lang): Change value.
(riece-google-display-message-function): Follow the change above.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f029570..57a496c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-02-04  OHASHI Akira  <bg66@koka-in.org>
+
+	* riece-google.el (riece-google-default-lang): Change value.
+	(riece-google-display-message-function): Follow the change above.
+
 2005-02-03  OHASHI Akira  <bg66@koka-in.org>
 
 	* riece-google.el: New add-on.
diff --git a/lisp/riece-google.el b/lisp/riece-google.el
index b149774..f9c7ef0 100644
--- a/lisp/riece-google.el
+++ b/lisp/riece-google.el
@@ -147,9 +147,11 @@ end
   :type 'string
   :group 'riece-google)
 
-(defcustom riece-google-default-lang "lang_ja"
+(defcustom riece-google-default-lang '("lang_en" "lang_ja")
   "*Default language for search keywords."
-  :type 'string
+  :type '(repeat (choice (const "lang_en" :tag "English")
+			 (const "lang_ja" :tag "Japanese")
+			 (string :tag "The other language")))
   :group 'riece-google)
 
 (defconst riece-google-regexp
@@ -178,6 +180,8 @@ end
 	  (coding-system-for-write 'binary)
 	  (process (start-process "Google" (generate-new-buffer " *Google*")
 				  riece-google-ruby-command)))
+      (when (listp lang)
+	(setq lang (mapconcat #'identity lang " ")))
       (setq riece-google-target (riece-message-target message))
       (process-send-string process
 			   (apply #'concat