insert-file-contents-literally (Re: copy-file problems)

[Katsumi Yamaoka]

Hi again,

I found another problem with the auto-compression-mode mode.
A file will be uncompressed contrary to expectation when I use
the following expression:

(insert-file-contents-literally "/address@hidden:~/file.gz")

Here's a patch:

--8<---------------cut here---------------start------------->8---
--- tramp.el~   2003-03-02 14:45:00 +0000
+++ tramp.el    2003-03-12 02:01:32 +0000
@@ -3121,9 +3121,10 @@
          (signal 'file-error
                  (format "File `%s' not found on remote host" filename))
          (list (expand-file-name filename) 0))
-      (let ((local-copy (file-local-copy filename))
-           (coding-system-used nil)
-           (result nil))
+      (let* ((inhibit-file-name-operation 'file-local-copy)
+            (local-copy (file-local-copy filename))
+            (coding-system-used nil)
+            (result nil))
        (when visit
          (setq buffer-file-name filename)
          (set-visited-file-modtime)
--8<---------------cut here---------------end--------------->8---

P.S. Under XEmacs, the insert-file-contents-literally function
won't work with Tramp, since it binds the file-name-handler-alist
to nil. :-<
-- 
Katsumi Yamaoka <address@hidden>