From 442e91ccc831bba483cb12b2dc55988e044a9211 Mon Sep 17 00:00:00 2001 From: ueno Date: Sun, 28 Jan 2007 03:48:42 +0000 Subject: [PATCH] Translate. --- lisp/riece-mcat-japanese.el | 11 ++++++++++- lisp/riece-rdcc.el | 22 ++++++++++++---------- 2 files changed, 22 insertions(+), 11 deletions(-) diff --git a/lisp/riece-mcat-japanese.el b/lisp/riece-mcat-japanese.el index cc11d71..3fd30c1 100644 --- a/lisp/riece-mcat-japanese.el +++ b/lisp/riece-mcat-japanese.el @@ -27,7 +27,8 @@ ;;; Code: (defconst riece-mcat-japanese-alist - '(("%S: switch to %s; down-mouse-3: more options" . "%S: %s に移動; down-mouse-3: その他のオプション") + '(("%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 人: ") ("%s (%s) has joined %s" . "%s (%s) が %s に参加しました") @@ -62,6 +63,7 @@ ("Created on %s\n" . "%s に作成されました\n") ("End of buffer" . "バッファの終端です") ("Erroneous nickname \"%s\". Choose a new one: " . "不正なニックネーム \"%s\"。新しいニックネーム: ") + ("File: " . "ファイル: ") ("Finger user: " . "身元を調べるユーザ: ") ("Invite user: " . "招待するユーザ: ") ("Inviting %s\n" . "%s を招待しています\n") @@ -102,8 +104,13 @@ ("Really want to query LIST without argument? " . "本当に引数なしの LIST を発行しますか? ") ("Really want to query NAMES without argument? " . "本当に引数なしの NAMES を発行しますか? ") ("Really want to query WHO without argument? " . "本当に引数なしの WHO を発行しますか? ") + ("Receiving %s from %s...(%s/%s)" . "%s を %s から受信中...(%s/%s)") + ("Receiving %s from %s...done" . "%s を %s から受信中...完了") ("Recent messages of the day:\n" . "最近のメッセージ (今日中):\n") ("Recent messages up to %d lines:\n" . "最近のメッセージ (%d 行まで):\n") + ("Save as (default %s) " . "保存先 (既定値 %s) ") + ("Sending %s...(%s/%d)" . "%s を送信中...(%s/%d)") + ("Sending %s...done" . "%s を送信中...完了") ("Sending QUIT to \"%s\"..." . "\"%s\" に QUIT を送信しています...") ("Sending QUIT to \"%s\"...done" . "\"%s\" に QUIT を送信しています...完了") ("Sending QUIT..." . "QUIT を送信しています...") @@ -119,9 +126,11 @@ ("Topic on %s by %s: %s" . "%s のトピックが %s により設定されました: %s") ("Topic: " . "トピック: ") ("Type \\[describe-mode] for help" . "ヘルプを見るには \\[describe-mode]") + ("Type \\[riece-command-dcc-receive] to receive" . "受信するには \\[riece-command-dcc-receive]") ("Type \\[riece-command-join] to join the channel" . "チャンネルに参加するには \\[riece-command-join]") ("Unset +o for users" . "-o するユーザ") ("Unset +v for users" . "-v するユーザ") + ("User: " . "ユーザ: ") ("WHO pattern: " . "WHO のパターン: ") ("[Available modes: " . "[使用可能なモード: ") ("days" . "日") diff --git a/lisp/riece-rdcc.el b/lisp/riece-rdcc.el index 3c109ae..9b5286f 100644 --- a/lisp/riece-rdcc.el +++ b/lisp/riece-rdcc.el @@ -33,6 +33,7 @@ (require 'riece-identity) (require 'riece-ctcp) ;for riece-ctcp-additional-clientinfo (require 'riece-ruby) +(require 'riece-mcat) (defgroup riece-rdcc nil "DCC written in Ruby." @@ -124,22 +125,22 @@ end (riece-ruby-set-output-handler name #'riece-rdcc-output-handler-2)) (defun riece-rdcc-output-handler-2 (name output time) - (message "Sending %s...(%s/%d)" + (message (riece-mcat "Sending %s...(%s/%d)") (riece-ruby-property name 'riece-rdcc-request-file) (string-to-number output) (riece-ruby-property name 'riece-rdcc-request-size))) (defun riece-rdcc-exit-handler (name) - (message "Sending %s...done" + (message (riece-mcat "Sending %s...done") (riece-ruby-property name 'riece-rdcc-request-file))) (defun riece-command-dcc-send (user file) (interactive (let ((completion-ignore-case t)) (list (riece-completing-read-identity - "User: " + (riece-mcat "User: ") (riece-get-users-on-server (riece-current-server-name))) - (expand-file-name (read-file-name "File: "))))) + (expand-file-name (read-file-name (riece-mcat "File: ")))))) (let ((name (riece-ruby-execute (riece-ruby-substitute-variables riece-rdcc-send-program @@ -176,7 +177,7 @@ end (logand (lsh riece-rdcc-received-size -16) 255) (logand (lsh riece-rdcc-received-size -8) 255) (logand riece-rdcc-received-size 255))) - (message "Receiving %s from %s...(%s/%s)" + (message (riece-mcat "Receiving %s from %s...(%s/%s)") (file-name-nondirectory riece-rdcc-request-file) riece-rdcc-request-user (riece-rdcc-format-size riece-rdcc-received-size) @@ -189,7 +190,7 @@ end (set-buffer (process-buffer process)) (unless (= riece-rdcc-received-size riece-rdcc-request-size) (error "Premature end of file")) - (message "Receiving %s from %s...done" + (message (riece-mcat "Receiving %s from %s...done") (file-name-nondirectory riece-rdcc-request-file) riece-rdcc-request-user) (condition-case nil @@ -224,7 +225,7 @@ end (let ((requests riece-rdcc-requests) (index 1)) (while requests - (princ (format "%2d: %s %s (%d bytes)\n" + (princ (format (riece-mcat "%2d: %s %s (%d bytes)\n") index (car (car requests)) (nth 1 (car requests)) @@ -246,8 +247,8 @@ end (list request (expand-file-name (read-file-name - (concat "Save as (default " - (file-name-nondirectory default-name) ") ") + (format (riece-mcat "Save as (default %s) ") + (file-name-nondirectory default-name)) (file-name-directory default-name) default-name)))))) (let* ((temp-file (expand-file-name @@ -323,7 +324,8 @@ end (with-current-buffer (window-buffer (selected-window)) (substitute-command-keys (format - "Type \\[riece-command-dcc-receive] to receive" + (riece-mcat + "Type \\[riece-command-dcc-receive] to receive") user)))) (riece-insert-change buffer (format "DCC SEND from %s: %s (%s)\n" user file -- 1.7.10.4