Index: lang/elisp/pdicv-mode/trunk/pdicv-core.el
===================================================================
--- lang/elisp/pdicv-mode/trunk/pdicv-core.el (revision 75)
+++ lang/elisp/pdicv-mode/trunk/pdicv-core.el (revision 76)
@@ -19,11 +19,14 @@
 
 ; (pdicv-get-header-info FILENAME)
-;    - ��ؒ�Ò���������ߒ�蒤�
+;    - ヘッダ情報を読み取る
+;
 ; (pdicv-get-index-list FILENAME [WORD-ENCODING])
-;    - PDIC��������������뒤���钡���������Ò�������꒥���Ȓ����
+;    - PDIC辞書ファイルから、インデックスリストを取得
 ;
 ; (pdicv-scan-datablock FILENAME PHYS CRITERIA-FUNC)
-;    - ��ǒ�������֒�풥Ò����򒥹�����㒥�; (pdicv-core-search DICINFO CRITERIA [SIMPLE-MODE-P DONT-CLEAR-P])
-;    - PDIC��������������뒡������
+;    - データブロックをスキャン
+;
+; (pdicv-core-search DICINFO CRITERIA [SIMPLE-MODE-P DONT-CLEAR-P])
+;    - PDIC検索（コアルーチン）
 ;
 
@@ -49,5 +52,6 @@
 (defvar pdicv-result-height 8)
 ;
-; ��ؒ�Ò���������ߒ�蒤�
+; ヘッダ情報を読み取る
+;
 (defun pdicv-get-header-info (filename)
   "[PDIC] Get Header Info"
@@ -278,5 +282,5 @@
                                         ;	(set-text-properties 0 (length jword) '(face pdicv-face-caption-gray) jword)
 
-	  (setq jword (nt:replace-all jword "������/ "))
+	  (setq jword (nt:replace-all jword "〓●" " // "))
 	  (setq jword (nt:replace-all jword "\n" "\n  "))
 
@@ -322,13 +326,15 @@
               (if (= field-size 2) (nt:read-ushort datablock p) (nt:read-ulong datablock p)) )
         (when (zerop field-length) (throw 'pdicv-scan-datablock (nreverse result))); sfield-list))
-        (setq p (+ p field-size)) ;2��ʒ�����4��В�����        (setq compress-length (nt:read-uchar datablock p)) ; �����̒Ĺ
+        (setq p (+ p field-size)) ;2ないし4バイト
+        (setq compress-length (nt:read-uchar datablock p)) ; 圧縮長
         (setq p (1+ p))
 
         (when aligned
-		  (setq eword-attrib (nt:read-uchar datablock p)) ; �������������
+		  (setq eword-attrib (nt:read-uchar datablock p)) ; 見出し語属性
 		  (setq p (1+ p)))
-                                        ; �����В����쒰ʒ�ߒ����꒤������� rest ��˒���쒤�       (setq rest (substring datablock p (+ p field-length)))
+                                        ; 見出し語以降をとりあえず rest に入れる
+        (setq rest (substring datablock p (+ p field-length)))
         (setq p (+ p field-length))
-                                        ; �����В�����NULL����ü)
+                                        ; 見出し語 (NULL終端)
         (let* ((eword-cstr (nt:read-cstring rest))
                (eword-compressed (car eword-cstr)) (eword-len (cdr eword-cstr))
@@ -344,5 +350,5 @@
                         (concat (substring eword 0 compress-length) eword-compressed) ))
           (setq q (1+ eword-len))
-		  ;; �������������
+		  ;; 見出し語属性
           (when (not aligned)
 			(setq eword-attrib (nt:read-uchar rest q))
@@ -357,5 +363,5 @@
           (setq extended (if (zerop (logand eword-attrib 16)) nil t))
           (if extended
-              (progn ;��Ȓĥ
+              (progn ;拡張
                 (setq jword-cstr (nt:read-cstring rest q))
                 (setq jword (car jword-cstr)) (setq jword-len (cdr jword-cstr))
@@ -383,5 +389,6 @@
                   ) ; catch while2
                 ) ; progn
-            (progn ;�ɸ���             (setq jword (substring rest q))
+            (progn ;標準
+              (setq jword (substring rest q))
               (setq pron "")
               (setq example ""))
@@ -452,6 +459,6 @@
                                         ;(pop-to-buffer pdicv-buffer-name)
                                         ;              (set-buffer pdicv-buffer-name)
-			(insert (format "��������� %s\n" word-to-search))
-			(insert (format "��������???\n"))
+			(insert (format "検索文字列: %s\n" word-to-search))
+			(insert (format "該当件数: ????\n"))
 			(newline))
                                         ;(insert "\n"))
@@ -498,5 +505,6 @@
                              (sit-for 0))
                   ;;else
-				  (when (zerop (% curr-size 128)) ;;128��ϒŬ����ʒ��			(message "%5d/%5d:%7d" curr-size index-size match-count))))
+				  (when (zerop (% curr-size 128)) ;;128は適当な数
+					(message "%5d/%5d:%7d" curr-size index-size match-count))))
               (setq ix (cdr ix))
               (setq curr-size (1- curr-size))