[Emacs-diffs] Changes to emacs/lisp/tar-mode.el,v [EMACS_22_BASE]

[Eli Zaretskii]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Eli Zaretskii <eliz>    07/05/23 17:31:40

Index: tar-mode.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/tar-mode.el,v
retrieving revision 1.108
retrieving revision 1.108.2.1
diff -u -b -r1.108 -r1.108.2.1
--- tar-mode.el 21 Jan 2007 03:53:10 -0000      1.108
+++ tar-mode.el 23 May 2007 17:31:39 -0000      1.108.2.1
@@ -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,19 @@
                                  (save-excursion
                                    (funcall set-auto-coding-function
                                             name (- (point-max) (point)))))
+                            ;; 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 and
+                            ;; EOL format are auto-detected.
+                            (let ((file-name-handler-alist
+                                   (if (featurep 'dos-w32)
+                                       '(("" . tar-file-name-handler))
+                                     file-name-handler-alist)))
                             (car (find-operation-coding-system
                                   'insert-file-contents
-                                  (cons name (current-buffer)) t))))
+                                    (cons name (current-buffer)) t)))))
                        (multibyte enable-multibyte-characters)
                        (detected (detect-coding-region
                                   (point-min)
@@ -758,7 +774,9 @@
                              (coding-system-change-text-conversion
                               coding 'raw-text)))
                    (decode-coding-region (point-min) (point-max) coding)
-                   (set-buffer-file-coding-system coding))
+                   ;; Force buffer-file-coding-system to what
+                   ;; decode-coding-region actually used.
+                   (set-buffer-file-coding-system last-coding-system-used t))
                  ;; Set the default-directory to the dir of the
                  ;; superior buffer.
                  (setq default-directory