X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-google.el;h=f3e0df908f7f5c49041de23070a0cae0cc6e3e54;hp=b14977472842b3447b5fbca2fb2783c24bd1ba12;hb=38e8f970289b0f4158011dfc7b06a6f655fa7f70;hpb=f15d9b4074181cecb3c383de8d67bf1341879364

diff --git a/lisp/riece-google.el b/lisp/riece-google.el
index b149774..f3e0df9 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"
-  "*Default language for search keywords."
-  :type 'string
+(defcustom riece-google-default-lang '("lang_en" "lang_ja")
+  "*Default language for searching keywords."
+  :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