From a5ca9b7f8d8d7c92e2a5695b2a4d5bcd93e75e29 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 29 Jan 2007 01:21:32 +0000 Subject: [PATCH] Translate. --- lisp/riece-addon.el | 44 ++++++++++++++++++++++--------------------- lisp/riece-mcat-japanese.el | 17 ++++++++++++++++- 2 files changed, 39 insertions(+), 22 deletions(-) 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" . "バッファの先頭です") -- 1.7.10.4