Mercurial > emacs

changeset 90446:c0ff181147ca

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tar-extract): Sync with HEAD.
author Kenichi Handa <handa@m17n.org>
date Fri, 09 Jun 2006 02:18:00 +0000
parents 663318f2775b
children 389f7c0d8696
files lisp/tar-mode.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/tar-mode.el	Fri Jun 09 02:16:05 2006 +0000
+++ b/lisp/tar-mode.el	Fri Jun 09 02:18:00 2006 +0000
@@ -726,7 +726,10 @@
 	      (setq coding (or coding-system-for-read
 			       (and set-auto-coding-function
 				    (funcall set-auto-coding-function
-					     name (- end start)))))
+					     name (- end start)))
+			       (car (find-operation-coding-system
+				     'insert-file-contents
+				     (cons name (current-buffer)) t))))
 	      (if (or (not coding)
 		      (eq (coding-system-type coding) 'undecided))
 		  (setq coding (detect-coding-region start end t)))