136 |
;; Avoid byte-compiler warnings if the byte-compiler supports this. |
;; Avoid byte-compiler warnings if the byte-compiler supports this. |
137 |
;; Currently, XEmacs supports this. |
;; Currently, XEmacs supports this. |
138 |
(eval-when-compile |
(eval-when-compile |
139 |
(when (fboundp 'byte-compiler-options) |
(when (featurep 'xemacs) |
140 |
(let (unused-vars) ; Pacify Emacs byte-compiler |
(let (unused-vars) ; Pacify Emacs byte-compiler |
141 |
(defalias 'warnings 'identity) ; Pacify Emacs byte-compiler |
(defalias 'warnings 'identity) ; Pacify Emacs byte-compiler |
142 |
(byte-compiler-options (warnings (- unused-vars)))))) |
(byte-compiler-options (warnings (- unused-vars)))))) |
3681 |
(let ((tmpbuf (get-buffer-create " *tramp tmp*"))) |
(let ((tmpbuf (get-buffer-create " *tramp tmp*"))) |
3682 |
(set-buffer tmpbuf) |
(set-buffer tmpbuf) |
3683 |
(erase-buffer) |
(erase-buffer) |
3684 |
(insert-buffer tramp-buf) |
(insert-buffer-substring tramp-buf) |
3685 |
(tramp-message-for-buffer |
(tramp-message-for-buffer |
3686 |
multi-method method user host |
multi-method method user host |
3687 |
6 "Decoding remote file %s with function %s..." |
6 "Decoding remote file %s with function %s..." |