From 123fe00a61a4beff97172b4ecddfce2db31833ea Mon Sep 17 00:00:00 2001 From: OHASHI Akira Date: Fri, 4 Feb 2005 01:59:22 +0000 Subject: [PATCH] * riece-google.el (riece-google-default-lang): Change value. (riece-google-display-message-function): Follow the change above. --- lisp/ChangeLog | 5 +++++ lisp/riece-google.el | 8 ++++++-- 2 files changed, 11 insertions(+), 2 deletions(-) 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 + + * riece-google.el (riece-google-default-lang): Change value. + (riece-google-display-message-function): Follow the change above. + 2005-02-03 OHASHI Akira * 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 -- 2.25.1