Re: tramp (2.0.57); file-coding-system-alist not respected

[William Xu]

Michael Albinus <address@hidden> writes:

> William, could you, please, test whether it works for you?

It can read the file without problem.  But when I try to save a modified
buffer, I got: "let: Symbol's value as variable is void: tmpfile".  

Backtrace: 

Debugger entered--Lisp error: (void-variable tmpfile)
  (tramp-find-file-name-coding-system-alist filename tmpfile)
  (let ((file-coding-system-alist ...)) (tramp-run-real-handler (quote 
write-region) (if confirm ... ...)) (when (boundp ...) (setq coding-system-used 
...)))
  (let ((curbuf ...) (rem-enc ...) (rem-dec ...) (loc-enc ...) (loc-dec ...) 
(trampbuf ...) (modes ...) coding-system-used tmpfil) (setq tmpfil 
(tramp-make-temp-file filename)) (set-buffer curbuf) (let (...) 
(tramp-run-real-handler ... ...) (when ... ...)) (when modes (set-file-modes 
tmpfil modes)) (cond (... ...) (... ...) (t ...)) (delete-file tmpfil) (unless 
(equal curbuf ...) (error "Buffer has changed from `%s' to `%s'" curbuf ...)) 
(when (or ... ...) (set-visited-file-modtime ...)) (when (boundp ...) (set ... 
coding-system-used)) (when (or ... ... ...) (message "Wrote %s" filename)))
  (let* ((v ...) (multi-method ...) (method ...) (user ...) (host ...) 
(localname ...)) (let (... ... ... ... ... ... ... coding-system-used tmpfil) 
(setq tmpfil ...) (set-buffer curbuf) (let ... ... ...) (when modes ...) (cond 
... ... ...) (delete-file tmpfil) (unless ... ...) (when ... ...) (when ... 
...) (when ... ...)))
  (with-parsed-tramp-file-name filename nil (let (... ... ... ... ... ... ... 
coding-system-used tmpfil) (setq tmpfil ...) (set-buffer curbuf) (let ... ... 
...) (when modes ...) (cond ... ... ...) (delete-file tmpfil) (unless ... ...) 
(when ... ...) (when ... ...) (when ... ...)))
  tramp-handle-write-region(1 1287 
"/ssh:address@hidden:/cygdrive/f/source/foo.cpp" nil t)
  apply(tramp-handle-write-region (1 1287 
"/ssh:address@hidden:/cygdrive/f/source/foo.cpp" nil t))
  (if fn (apply (cdr fn) args) (tramp-run-real-handler operation args))
  (let ((fn ...)) (if fn (apply ... args) (tramp-run-real-handler operation 
args)))
  (progn (let (...) (if fn ... ...)))
  (unwind-protect (progn (let ... ...)) (set-match-data 
save-match-data-internal (quote evaporate)))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) 
(set-match-data save-match-data-internal ...)))
  (save-match-data (let (...) (if fn ... ...)))
  (let ((tramp-locker t)) (save-match-data (let ... ...)))
  (progn (setq tramp-locked t) (let (...) (save-match-data ...)))
  (unwind-protect (progn (setq tramp-locked t) (let ... ...)) (setq 
tramp-locked tl))
  (let ((tl tramp-locked)) (unwind-protect (progn ... ...) (setq tramp-locked 
tl)))
  tramp-sh-file-name-handler(write-region 1 1287 
"/ssh:address@hidden:/cygdrive/f/source/foo.cpp" nil t)
  apply(tramp-sh-file-name-handler write-region (1 1287 
"/ssh:address@hidden:/cygdrive/f/source/foo.cpp" nil t))
  (cond ((and completion ... ...) t) ((and completion ... ...) filename) 
(foreign (apply foreign operation args)) (t (tramp-run-real-handler operation 
args)))
  (let* ((v ...) (multi-method ...) (method ...) (user ...) (host ...) 
(localname ...)) (cond (... t) (... filename) (foreign ...) (t ...)))
  (with-parsed-tramp-file-name filename nil (cond (... t) (... filename) 
(foreign ...) (t ...)))
  (let* ((filename ...) (completion ...) (foreign ...)) 
(with-parsed-tramp-file-name filename nil (cond ... ... ... ...)))
  (progn (let* (... ... ...) (with-parsed-tramp-file-name filename nil ...)))
  (unwind-protect (progn (let* ... ...)) (set-match-data 
save-match-data-internal (quote evaporate)))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) 
(set-match-data save-match-data-internal ...)))
  (save-match-data (let* (... ... ...) (with-parsed-tramp-file-name filename 
nil ...)))
  tramp-file-name-handler(write-region 1 1287 
"/ssh:address@hidden:/cygdrive/f/source/foo.cpp" nil t)
  write-region(1 1287 "/ssh:address@hidden:/cygdrive/f/source/foo.cpp" nil t 
"/ssh:address@hidden:/cygdrive/f/source/foo.cpp")
  basic-save-buffer-2()
  basic-save-buffer-1()
  basic-save-buffer()
  save-buffer(1)
  call-interactively(save-buffer)

-- 
William

http://williamxu.net9.org