diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2007-05-23 12:38:59 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2007-05-23 12:38:59 +0000 |
| commit | 07e7a05a7f4e424551889e03dd7b345c4a69548f (patch) | |
| tree | 5918b94a13f853a9edc93ab518994da9001ea67f /lisp/tar-mode.el | |
| parent | c96e025abb1ba6924c6d53776636284113c942d1 (diff) | |
| download | emacs-07e7a05a7f4e424551889e03dd7b345c4a69548f.tar.gz | |
(tar-file-name-handler): New function.
(tar-extract): Bind file-name-handler-alist to it to force
find-buffer-file-type-coding-system behave as if the file being extracted
existed. Use last-coding-system-used to force buffer-file-coding-system
to what decode-coding-region actually used to decode the file.
Diffstat (limited to 'lisp/tar-mode.el')
| -rw-r--r-- | lisp/tar-mode.el | 24 |
1 files changed, 20 insertions, 4 deletions
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index cffc8a4cccc..f5022a9fcd4 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -681,6 +681,12 @@ appear on disk when you save the tar-file's buffer." (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 @@ appear on disk when you save the tar-file's buffer." (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,9 @@ appear on disk when you save the tar-file's buffer." (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 |