diff options
| author | Richard M. Stallman | 2005-10-02 17:37:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-10-02 17:37:34 +0000 |
| commit | f9f51bbf9eccb0bebdd7eebe39e9e7dd9e90a0e8 (patch) | |
| tree | 16c6ff6a3f90eb866a0bba2c7616a1fa225739bd | |
| parent | edb18c43df867f09ffff9841482900fd9267abd4 (diff) | |
| download | emacs-f9f51bbf9eccb0bebdd7eebe39e9e7dd9e90a0e8.tar.gz emacs-f9f51bbf9eccb0bebdd7eebe39e9e7dd9e90a0e8.zip | |
Pacify byte compiler warnings in pacification code.
(tramp-handle-file-local-copy): Use insert-buffer-substring.
| -rw-r--r-- | lisp/net/tramp.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 9c832dd14f9..17b91d92818 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el | |||
| @@ -136,7 +136,7 @@ Nil means to use a separate filename syntax for Tramp.") | |||
| 136 | ;; Avoid byte-compiler warnings if the byte-compiler supports this. | 136 | ;; Avoid byte-compiler warnings if the byte-compiler supports this. |
| 137 | ;; Currently, XEmacs supports this. | 137 | ;; Currently, XEmacs supports this. |
| 138 | (eval-when-compile | 138 | (eval-when-compile |
| 139 | (when (fboundp 'byte-compiler-options) | 139 | (when (featurep 'xemacs) |
| 140 | (let (unused-vars) ; Pacify Emacs byte-compiler | 140 | (let (unused-vars) ; Pacify Emacs byte-compiler |
| 141 | (defalias 'warnings 'identity) ; Pacify Emacs byte-compiler | 141 | (defalias 'warnings 'identity) ; Pacify Emacs byte-compiler |
| 142 | (byte-compiler-options (warnings (- unused-vars)))))) | 142 | (byte-compiler-options (warnings (- unused-vars)))))) |
| @@ -3681,7 +3681,7 @@ This will break if COMMAND prints a newline, followed by the value of | |||
| 3681 | (let ((tmpbuf (get-buffer-create " *tramp tmp*"))) | 3681 | (let ((tmpbuf (get-buffer-create " *tramp tmp*"))) |
| 3682 | (set-buffer tmpbuf) | 3682 | (set-buffer tmpbuf) |
| 3683 | (erase-buffer) | 3683 | (erase-buffer) |
| 3684 | (insert-buffer tramp-buf) | 3684 | (insert-buffer-substring tramp-buf) |
| 3685 | (tramp-message-for-buffer | 3685 | (tramp-message-for-buffer |
| 3686 | multi-method method user host | 3686 | multi-method method user host |
| 3687 | 6 "Decoding remote file %s with function %s..." | 3687 | 6 "Decoding remote file %s with function %s..." |