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 "/[EMAIL PROTECTED]:~/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 <[EMAIL PROTECTED]>
_______________________________________________
Tramp-devel mailing list
[EMAIL PROTECTED]
http://mail.nongnu.org/mailman/listinfo/tramp-devel
