From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Eli Zaretskii Newsgroups: gmane.emacs.devel Subject: Re: EOL conversion of files in .tar archives Date: Tue, 22 May 2007 15:21:38 +0300 Message-ID: References: Reply-To: Eli Zaretskii NNTP-Posting-Host: lo.gmane.org X-Trace: sea.gmane.org 1179836506 26826 80.91.229.12 (22 May 2007 12:21:46 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 22 May 2007 12:21:46 +0000 (UTC) To: handa@m17n.org, emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue May 22 14:21:42 2007 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1HqTN0-0002wE-EF for ged-emacs-devel@m.gmane.org; Tue, 22 May 2007 14:21:42 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1HqTN1-0003YM-1e for ged-emacs-devel@m.gmane.org; Tue, 22 May 2007 08:21:43 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1HqTMx-0003WR-GT for emacs-devel@gnu.org; Tue, 22 May 2007 08:21:39 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1HqTMw-0003VG-4K for emacs-devel@gnu.org; Tue, 22 May 2007 08:21:39 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1HqTMv-0003VD-Va for emacs-devel@gnu.org; Tue, 22 May 2007 08:21:38 -0400 Original-Received: from romy.inter.net.il ([213.8.233.24]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1HqTMv-0002co-Cw for emacs-devel@gnu.org; Tue, 22 May 2007 08:21:37 -0400 Original-Received: from HOME-C4E4A596F7 (IGLD-84-229-252-153.inter.net.il [84.229.252.153]) by romy.inter.net.il (MOS 3.7.3-GA) with ESMTP id HWX80743 (AUTH halo1); Tue, 22 May 2007 15:21:35 +0300 (IDT) In-reply-to: (message from Eli Zaretskii on Tue, 22 May 2007 14:19:14 +0300) X-detected-kernel: FreeBSD 4.7-5.2 (or MacOS X 10.2-10.4) (2) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:71595 Archived-At: > Date: Tue, 22 May 2007 14:19:14 +0300 > From: Eli Zaretskii > Cc: emacs-devel@gnu.org > > I'd like to suggest an alternative change that is local to > tar-mode.el, see below. Sorry, that patch was incomplete, and so did an imperfect job. Please use the one below. Index: lisp/tar-mode.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/tar-mode.el,v retrieving revision 1.108 diff -u -r1.108 tar-mode.el --- lisp/tar-mode.el 21 Jan 2007 03:53:10 -0000 1.108 +++ lisp/tar-mode.el 22 May 2007 12:19:49 -0000 @@ -681,6 +681,12 @@ (goto-char (posn-point (event-end event))) (tar-extract)) +(defun tar-file-name-handler (op &rest args) + "Helper function for `tar-extract'." + (or (eq op 'file-exists-p) + (let ((file-name-handler-alist nil)) + (apply op args)))) + (defun tar-extract (&optional other-window-p) "In Tar mode, extract this entry of the tar file into its own buffer." (interactive) @@ -735,9 +741,17 @@ (save-excursion (funcall set-auto-coding-function name (- (point-max) (point))))) - (car (find-operation-coding-system - 'insert-file-contents - (cons name (current-buffer)) t)))) + ;; The following binding causes + ;; find-buffer-file-type-coding-system + ;; (defined on dos-w32.el) to act as if + ;; the file being extracted existed, so + ;; that the file's contents' encoding is + ;; auto-detected. + (let ((file-name-handler-alist + '(("" . tar-file-name-handler)))) + (car (find-operation-coding-system + 'insert-file-contents + (cons name (current-buffer)) t))))) (multibyte enable-multibyte-characters) (detected (detect-coding-region (point-min) @@ -758,7 +772,7 @@ (coding-system-change-text-conversion coding 'raw-text))) (decode-coding-region (point-min) (point-max) coding) - (set-buffer-file-coding-system coding)) + (set-buffer-file-coding-system last-coding-system-used t)) ;; Set the default-directory to the dir of the ;; superior buffer. (setq default-directory