From: ueno <ueno>
Date: Mon, 29 Jan 2007 01:21:32 +0000 (+0000)
Subject: Translate.
X-Git-Tag: riece-3_1_2~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a5ca9b7f8d8d7c92e2a5695b2a4d5bcd93e75e29;p=elisp%2Friece.git

Translate.
---

diff --git a/lisp/riece-addon.el b/lisp/riece-addon.el
index 3666e8a..671ba2e 100644
--- a/lisp/riece-addon.el
+++ b/lisp/riece-addon.el
@@ -29,6 +29,7 @@
 (require 'riece-compat)
 (require 'riece-misc)
 (require 'riece-addon-modules)
+(require 'riece-mcat)
 
 (defgroup riece-addon-list nil
   "Add-on listing."
@@ -205,12 +206,12 @@
 (defun riece-insinuate-addon-1 (addon verbose)
   (if (get addon 'riece-addon-insinuated)
       (if verbose
-	  (message "Add-on %S is already insinuated" addon))
+	  (message (riece-mcat "Add-on %S is already insinuated") addon))
     (require addon)
     (funcall (intern (concat (symbol-name addon) "-insinuate")))
     (put addon 'riece-addon-insinuated t)
     (if verbose
-	(message "Add-on %S is insinuated" addon))
+	(message (riece-mcat "Add-on %S is insinuated") addon))
     (unless (get addon 'riece-addon-default-disabled)
       (riece-enable-addon addon t))))
 
@@ -232,7 +233,8 @@
     (setq addons (nreverse addons))
     (if (and (> (length addons) 1)
 	     (eq verbose 'ask)
-	     (not (y-or-n-p (format "%s will be insinuated.  Continue? "
+	     (not (y-or-n-p (format (riece-mcat
+				     "%s will be insinuated.  Continue? ")
 				    (mapconcat #'symbol-name addons ", ")))))
 	(error "Insinuate operation was cancelled"))
     (while addons
@@ -242,7 +244,7 @@
 (defun riece-uninstall-addon (addon &optional verbose)
   (if (not (get addon 'riece-addon-insinuated))
       (if verbose
-	  (message "Add-on %S is not insinuated" addon))
+	  (message (riece-mcat "Add-on %S is not insinuated") addon))
     (let ((entry (assq addon riece-addon-dependencies))
 	  (uninstall (intern-soft (concat (symbol-name addon) "-uninstall"))))
       (if entry
@@ -265,35 +267,35 @@
 		  (riece-resolve-addons
 		   (delq addon (mapcar #'car riece-addon-dependencies))))))
       (if verbose
-	  (message "Add-on %S is uninstalled" addon)))))
+	  (message (riece-mcat "Add-on %S is uninstalled") addon)))))
 
 (defun riece-enable-addon (addon &optional verbose)
   (unless (get addon 'riece-addon-insinuated)
     (error "Add-on %S is not insinuated" addon))
   (if (get addon 'riece-addon-enabled)
       (if verbose
-	  (message "Add-on %S is already enabled" addon))
+	  (message (riece-mcat "Add-on %S is already enabled") addon))
     (let ((enable (intern-soft (concat (symbol-name addon) "-enable"))))
       (if (and enable
 	       (fboundp enable))
 	  (funcall enable))
       (put addon 'riece-addon-enabled t)
       (if verbose
-	  (message "Add-on %S enabled" addon)))))
+	  (message (riece-mcat "Add-on %S enabled") addon)))))
 
 (defun riece-disable-addon (addon &optional verbose)
   (unless (get addon 'riece-addon-insinuated)
     (error "Add-on %S is not insinuated" addon))
   (if (not (get addon 'riece-addon-enabled))
       (if verbose
-	  (message "Add-on %S is already disabled" addon))
+	  (message (riece-mcat "Add-on %S is already disabled") addon))
     (let ((disable (intern-soft (concat (symbol-name addon) "-disable"))))
       (if (and disable
 	       (fboundp disable))
 	  (funcall disable))
       (put addon 'riece-addon-enabled nil)
       (if verbose
-	  (message "Add-on %S disabled" addon)))))
+	  (message (riece-mcat "Add-on %S disabled") addon)))))
 
 (put 'riece-addon-list-mode 'font-lock-defaults
      '(riece-addon-list-font-lock-keywords t))
@@ -334,7 +336,7 @@ All normal editing commands are turned off."
 			(if (and description
 				 (boundp description))
 			    (symbol-value description)
-			  "(no description)"))
+			  (riece-mcat "(no description)")))
 		  module-description-alist)
 	    pointer (cdr pointer)))
     (setq pointer riece-addon-modules)
@@ -372,15 +374,15 @@ All normal editing commands are turned off."
 		      (cdr (car pointer))))
       (put-text-property point (point) 'riece-addon (car (car pointer)))
       (setq pointer (cdr pointer)))
-    (insert "
+    (insert (riece-mcat "
 Symbols in the leftmost column:
 
    +     The add-on is enabled.
    -     The add-on is disabled.
    ?     The add-on is not insinuated.
          The add-on is not loaded.
-")
-    (insert (substitute-command-keys "
+"))
+    (insert (substitute-command-keys (riece-mcat "
 Useful keys:
 
    `\\[riece-command-enable-addon]' to enable the current add-on.
@@ -389,7 +391,7 @@ Useful keys:
    `\\[riece-command-uninstall-addon]' to uninstall the current add-on.
    `\\[riece-command-unload-addon]' to unload the current add-on.
    `\\[riece-command-save-variables]' to save the current setting.
-"))
+")))
     (goto-char (point-min))
     (pop-to-buffer (current-buffer))
     (delete-other-windows)))
@@ -408,7 +410,7 @@ Useful keys:
     (or (if (eq major-mode 'riece-addon-list-mode)
 	    (get-text-property (point) 'riece-addon))
 	(intern-soft
-	 (completing-read "Add-on: "
+	 (completing-read (riece-mcat "Add-on: ")
 			  (mapcar (lambda (dependency)
 				    (list (symbol-name (car dependency))))
 				  riece-addon-dependencies)
@@ -431,7 +433,7 @@ Useful keys:
     (or (if (eq major-mode 'riece-addon-list-mode)
 	    (get-text-property (point) 'riece-addon))
 	(intern-soft
-	 (completing-read "Add-on: "
+	 (completing-read (riece-mcat "Add-on: ")
 			  (mapcar (lambda (dependency)
 				    (list (symbol-name (car dependency))))
 				  riece-addon-dependencies)
@@ -453,7 +455,7 @@ Useful keys:
     (or (if (eq major-mode 'riece-addon-list-mode)
 	    (get-text-property (point) 'riece-addon))
 	(intern-soft
-	 (completing-read "Add-on: "
+	 (completing-read (riece-mcat "Add-on: ")
 			  (mapcar (lambda (dependency)
 				    (list (symbol-name (car dependency))))
 				  riece-addon-modules)
@@ -471,7 +473,7 @@ Useful keys:
     (or (if (eq major-mode 'riece-addon-list-mode)
 	    (get-text-property (point) 'riece-addon))
 	(intern-soft
-	 (completing-read "Add-on: "
+	 (completing-read (riece-mcat "Add-on: ")
 			  (mapcar (lambda (dependency)
 				    (list (symbol-name (car dependency))))
 				  riece-addon-dependencies)
@@ -489,7 +491,7 @@ Useful keys:
     (or (if (eq major-mode 'riece-addon-list-mode)
 	    (get-text-property (point) 'riece-addon))
 	(intern-soft
-	 (completing-read "Add-on: "
+	 (completing-read (riece-mcat "Add-on: ")
 			  (mapcar (lambda (dependency)
 				    (list (symbol-name (car dependency))))
 				  riece-addon-dependencies)
@@ -498,9 +500,9 @@ Useful keys:
 			  t)))))
   (riece-uninstall-addon addon t)
   (if (get addon 'riece-addon-not-unloadable)
-      (message "Add-on %S is not allowed to unload" addon)
+      (message (riece-mcat "Add-on %S is not allowed to unload") addon)
     (unload-feature addon)
-    (message "Add-on %S is unloaded" addon))
+    (message (riece-mcat "Add-on %S is unloaded") addon))
   (when (eq major-mode 'riece-addon-list-mode)
     (riece-command-list-addons)
     (riece-addon-list-set-point addon)))
diff --git a/lisp/riece-mcat-japanese.el b/lisp/riece-mcat-japanese.el
index 856b38c..acfa566 100644
--- a/lisp/riece-mcat-japanese.el
+++ b/lisp/riece-mcat-japanese.el
@@ -27,7 +27,9 @@
 ;;; Code:
 
 (defconst riece-mcat-japanese-alist
-  '(("%2d: %s %s (%d bytes)\n" . "%2d: %s %s (%d バイト)\n")
+  '(("\nSymbols in the leftmost column:\n\n   +     The add-on is enabled.\n   -     The add-on is disabled.\n   ?     The add-on is not insinuated.\n         The add-on is not loaded.\n" . "\n左端のシンボル:\n\n   +     有効なアドオン\n   -     無効なアドオン\n   ?     設定に組み込まれていないアドオン\n         ロードされていないアドオン\n")
+    ("\nUseful keys:\n\n   `\\[riece-command-enable-addon]' to enable the current add-on.\n   `\\[riece-command-disable-addon]' to disable the current add-on.\n   `\\[riece-command-insinuate-addon]' to insinuate the current add-on.\n   `\\[riece-command-uninstall-addon]' to uninstall the current add-on.\n   `\\[riece-command-unload-addon]' to unload the current add-on.\n   `\\[riece-command-save-variables]' to save the current setting.\n" . "\n便利なキー:\n\n   `\\[riece-command-enable-addon]' アドオンを有効化\n   `\\[riece-command-disable-addon]' アドオンを無効化\n   `\\[riece-command-insinuate-addon]' アドオンを組み込み\n   `\\[riece-command-uninstall-addon]' アドオンの除外\n   `\\[riece-command-unload-addon]' アドオンをアンロード\n   `\\[riece-command-save-variables]' 設定を保存\n")
+    ("%2d: %s %s (%d bytes)\n" . "%2d: %s %s (%d バイト)\n")
     ("%S: switch to %s; down-mouse-3: more options" . "%S: %s に移動; down-mouse-3: その他のオプション")
     ("%d users on %s: " . "%d 人が %s にいます: ")
     ("%d users: " . "%d 人: ")
@@ -45,7 +47,20 @@
     ("%s kicked %s out from %s\n" . "%s が %s を %s から蹴り出しました\n")
     ("%s killed %s" . "%s が %s を KILL しました")
     ("%s users, topic: %s\n" . "%s 人、トピック: %s\n")
+    ("%s will be insinuated.  Continue? " . "%s は組み込まれていません。続行しますか? ")
     ("%s: %s users, topic: %s" . "%s: %s 人、トピック: %s\n")
+    ("(no description)" . "(説明なし)")
+    ("Add-on %S disabled" . "アドオン %S が無効になりました")
+    ("Add-on %S enabled" . "アドオン %S が有効になりました")
+    ("Add-on %S is already disabled" . "アドオン %S は既に無効です")
+    ("Add-on %S is already enabled" . "アドオン %S は既に有効です")
+    ("Add-on %S is already insinuated" . "アドオン %S は既に組み込まれています")
+    ("Add-on %S is insinuated" . "アドオン %S が組み込まれました")
+    ("Add-on %S is not allowed to unload" . "アドオン %S はアンロードできません")
+    ("Add-on %S is not insinuated" . "アドオン %S は組み込まれていません")
+    ("Add-on %S is uninstalled" . "アドオン %S が除外されました")
+    ("Add-on %S is unloaded" . "アドオン %S がアンロードされました")
+    ("Add-on: " . "アドオン: ")
     ("Already registered" . "登録済みです")
     ("Away message: " . "離席のメッセージ: ")
     ("Beginning of buffer" . "バッファの先頭です")