tar-mode で coding-system が常に sjis になる

tar-mode.elのtar-extractの (if coding を (if (and coding (null (string-match "^{undecided" (symbol-name coding)))) くらいにすればいいと思う。 texで設定できているのは、ファイル中に文字セットが明示されているのでは？}

未対処だけど、一応メモとして。 anonymous2さんの修正は正しいと思います。 ちょっと書き直して以下のように。

Index: tar-mode.el
===================================================================
--- tar-mode.el	(revision 4132)
+++ tar-mode.el	(working copy)
@@ -742,7 +742,8 @@
 			(detected (detect-coding-region
 				   (point-min)
 				   (min (+ (point-min) 16384) (point-max)) t)))
-		    (if coding
+		    (if (and coding
+			     (not (eq (coding-system-base coding) 'undecided)))
 			(or (numberp (coding-system-eol-type coding))
 			    (vectorp (coding-system-eol-type detected))
 			    (setq coding (coding-system-change-eol-conversion

ただ、この codingなのですが、修正部分の少し前で find-operation-coding-system<f>が undecided を 返すことが正しくないような気がしてるけど未調査。 くわえて#184の問題とも関連があったりしないかな、という気も少々。

症状再現の為の tar ファイル (sjis/euc/jis)

シンプルにこうしちゃった方が良いと思うな。

• tar-mode.el

  old	new
  727	727	(setq buffer-file-name new-buffer-file-name)
  728	728	(setq buffer-file-truename
  729	729	(abbreviate-file-name buffer-file-name))
  730		;; We need to mimic the parts of insert-file-contents
  731		;; which determine the coding-system and decode the text.
  732		(let ((coding
  733		(or coding-system-for-read
  734		(and set-auto-coding-function
  735		(save-excursion
  736		(funcall set-auto-coding-function
  737		name (- (point-max) (point)))))
  738		(car (find-operation-coding-system
  739		'insert-file-contents
  740		(cons name (current-buffer)) t))))
  741		(multibyte enable-multibyte-characters)
  742		(detected (detect-coding-region
  743		(point-min)
  744		(min (+ (point-min) 16384) (point-max)) t)))
  745		(if coding
  746		(or (numberp (coding-system-eol-type coding))
  747		(vectorp (coding-system-eol-type detected))
  748		(setq coding (coding-system-change-eol-conversion
  749		coding
  750		(coding-system-eol-type detected))))
  751		(setq coding
  752		(find-new-buffer-file-coding-system detected)))
  753		(if (or (eq coding 'no-conversion)
  754		(eq (coding-system-type coding) 5))
  755		(setq multibyte (set-buffer-multibyte nil)))
  756		(or multibyte
  757		(setq coding
  758		(coding-system-change-text-conversion
  759		coding 'raw-text)))
  760		(decode-coding-region (point-min) (point-max) coding)
  761		(set-buffer-file-coding-system coding))
  	730	(decode-coding-inserted-region
  	731	(point-min) (point-max) buffer-file-name t)
  	732	(after-insert-file-set-coding (buffer-size) t)
  762	733	;; Set the default-directory to the dir of the
  763	734	;; superior buffer.
  764	735	(setq default-directory

どうせ直すなら、上記のさらに15行ほど後方も、 (set-buffer-multibyte tar-buffer-multibyte) (narrow-to-region (point-min) (byte-to-position tar-header-offset)) にしちゃった方がいいかもしれません。

Replying to anonymous2:
comment:3 に加えて以下の修正を、ということですね。 どちらの修正も適切に思えます。

• tar-mode.el

  old	new
  775	746	(set-buffer-modified-p nil))
  776	747	(tar-subfile-mode 1))
  777	748	(set-buffer tar-buffer))
  778		(narrow-to-region (point-min) tar-header-offset)
  779		(set-buffer-multibyte tar-buffer-multibyte)))
  	749	(set-buffer-multibyte tar-buffer-multibyte)
  	750	(narrow-to-region (point-min) (byte-to-position tar-header-offset))))
  780	751	(if view-p
  781	752	(view-buffer buffer (and just-created 'kill-buffer))
  782	753	(if (eq other-window-p 'display)

comment:3 のdecode-coding-inserted-region<f>の内容も確認してみましたが、 修正前コードを内包していることは確認しました。よさげ。 comment:4 の内容もtar-mode.elのほかの部分と同様のコードなわけですからよさそ。

narrow-to-region と set-buffer-multibyte を入れ替える意図はよくわからないな。

tar-subfile-save-buffer で coding-system-for-write が無視されることと セーブ後に undo できなくなってしまうことに対するパッチも示しておきます。

• tar-mode.el

  old	new
  1118	1118	(save-excursion
  1119	1119	(let ((subfile (current-buffer))
  1120	1120	(subfile-multibyte enable-multibyte-characters)
  1121		(coding buffer-file-coding-system)
  	1121	(coding (funcall select-safe-coding-system-function
  	1122	(point-min) (point-max)
  	1123	(if coding-system-for-write
  	1124	(list t coding-system-for-write)
  	1125	buffer-file-coding-system)
  	1126	nil buffer-file-name))
  1122	1127	(descriptor tar-superior-descriptor)
  	1128	(buffer-undo-list-bak buffer-undo-list)
  1123	1129	subfile-size)
  1124	1130	;; We must make the current buffer unibyte temporarily to avoid
  1125	1131	;; multibyte->unibyte conversion in `insert-buffer-substring'.
  …	…
  1218	1224	(set-buffer-modified-p nil) ; mark the tar subfile as unmodified
  1219	1225	(message "Saved into tar-buffer `%s'.  Be sure to save that buffer!"
  1220	1226	(buffer-name tar-superior-buffer))
  1221		;; Prevent basic-save-buffer from changing our coding-system.
  1222		(setq last-coding-system-used buffer-file-coding-system)
  	1227	(setq buffer-undo-list buffer-undo-list-bak)
  1223	1228	;; Prevent ordinary saving from happening.
  1224	1229	t)))
  1225	1230

Replying to anonymous:

narrow-to-region と set-buffer-multibyte を入れ替える意図はよくわからないな。

comment:4 の指摘に従ったというだけで順序そのものに意図は無いです。 byte-to-positionを塚照る限りどちらでもよいかとは思う。 tar-mode.el内にはどっちのケースもありますね。

tar-subfile-save-buffer で coding-system-for-write が無視されることと セーブ後に undo できなくなってしまうことに対するパッチも示しておきます。

すいませんが、これらは別件ですよね。 であれば、別のチケットを作ってくれませんか。 というか、そこまではっきりとしたパッチがあるならば、bug-gnu-emacs@gnu.org に 出していただけたほうが助かります。meadow独自に上記修正をするかどうかは現状不明ですし、 本家が直ってくれるのがsync作業の面でも助かるので、是非。

p.s.
anonymousと対話するのはなんか疲れる...

Replying to gotoh:

comment:4 の指摘に従ったというだけで順序そのものに意図は無いです。

この順序でないとだめです。ファイル名にMBCを使った場合のバグの修正ですので、実は別件です。

anonymousと対話するのはなんか疲れる...

ごめんちゃい

この件は r4213 では直っているのを確認しました。よってクローズ ただ、添付のサンプルファイルはEUC-JPのテキストだけは化けてしまいましたが、 これはtar外の通常ファイルでもcoding検出できていないので、別のも問題です。