Declare external variables.

diff --git a/lisp/net/tramp-adb.el b/lisp/net/tramp-adb.el
index 389edf1c919e2ed291bd9a1cb9fcd9b90252fcd0..42fa3165847d75459893ee0576ce078f343cf3b8 100644 (file)
--- a/lisp/net/tramp-adb.el
+++ b/lisp/net/tramp-adb.el
@@ -36,7 +36,10 @@
 (require 'tramp)
 (require 'time-date)
 
-(defvar dired-move-to-filename-regexp)
+;; Pacify byte-compiler.
+(eval-when-compile
+  (defvar directory-sep-char)
+  (defvar dired-move-to-filename-regexp))
 
 (defcustom tramp-adb-program "adb"
   "Name of the Android Debug Bridge program."

diff --git a/lisp/net/tramp-cmds.el b/lisp/net/tramp-cmds.el
index 462f0d88367c2702d7df639aaba9527fb37daeee..7c04cbf3b60a3bb2aa0113acb613885e6dc0b408 100644 (file)
--- a/lisp/net/tramp-cmds.el
+++ b/lisp/net/tramp-cmds.el
@@ -30,6 +30,12 @@
 
 (require 'tramp)
 
+;; Pacify byte-compiler.
+(eval-when-compile
+  (defvar buffer-name)
+  (defvar reporter-eval-buffer)
+  (defvar reporter-prompt-for-summary-p))
+
 (defun tramp-list-tramp-buffers ()
   "Return a list of all Tramp connection buffers."
   (append

diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el
index c42a29981b730a4efd6db4d4bb9b7736815b6ee8..71703fe6ab1184dfa93f54d739ea7280e148d76e 100644 (file)
--- a/lisp/net/tramp-compat.el
+++ b/lisp/net/tramp-compat.el
@@ -29,9 +29,8 @@
 
 ;;; Code:
 
+;; Pacify byte-compiler.
 (eval-when-compile
-
-  ;; Pacify byte-compiler.
   (require 'cl))
 
 (eval-and-compile

diff --git a/lisp/net/tramp-ftp.el b/lisp/net/tramp-ftp.el
index 7d266d4d172e25e0850ec3a241f4a9421ee9d44e..fbc02911d93d6c34454f5a1d419c912fc332eb69 100644 (file)
--- a/lisp/net/tramp-ftp.el
+++ b/lisp/net/tramp-ftp.el
@@ -30,11 +30,13 @@
 
 (require 'tramp)
 
+;; Pacify byte-compiler.
 (eval-when-compile
-
-  ;; Pacify byte-compiler.
   (require 'cl)
-  (require 'custom))
+  (require 'custom)
+  (defvar ange-ftp-ftp-name-arg)
+  (defvar ange-ftp-ftp-name-res)
+  (defvar ange-ftp-name-format))
 
 ;; Disable Ange-FTP from file-name-handler-alist.
 ;; To handle EFS, the following functions need to be dealt with:

diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index d0270aabacc6b40d356bbacaf414908d6ffcb373..7c41499a2e9c6788edb22ff20387135415030187 100644 (file)
--- a/lisp/net/tramp-gvfs.el
+++ b/lisp/net/tramp-gvfs.el
@@ -97,11 +97,6 @@
 ;; option "--without-dbus".  Declare used subroutines and variables.
 (declare-function dbus-get-unique-name "dbusbind.c")
 
-;; Pacify byte-compiler
-(eval-when-compile
-  (require 'cl)
-  (require 'custom))
-
 (require 'tramp)
 
 (require 'dbus)
@@ -109,6 +104,12 @@
 (require 'url-util)
 (require 'zeroconf)
 
+;; Pacify byte-compiler.
+(eval-when-compile
+  (require 'cl)
+  (require 'custom)
+  (defvar ls-lisp-use-insert-directory-program))
+
 ;;;###tramp-autoload
 (defcustom tramp-gvfs-methods '("dav" "davs" "obex" "synce")
   "List of methods for remote files, accessed with GVFS."

diff --git a/lisp/net/tramp-gw.el b/lisp/net/tramp-gw.el
index f7c6eba40063b8d7d7e7a5ba6bb6aff9a0b66c4e..7d221618f42b5253efd74738060480261b545c52 100644 (file)
--- a/lisp/net/tramp-gw.el
+++ b/lisp/net/tramp-gw.el
@@ -33,16 +33,11 @@
 
 (require 'tramp)
 
-;; Pacify byte-compiler
+;; Pacify byte-compiler.
 (eval-when-compile
   (require 'cl)
-  (require 'custom))
-
-;; Avoid byte-compiler warnings if the byte-compiler supports this.
-;; Currently, XEmacs supports this.
-(eval-when-compile
-  (when (featurep 'xemacs)
-      (byte-compiler-options (warnings (- unused-vars)))))
+  (require 'custom)
+  (defvar socks-noproxy))
 
 ;; We don't add the following methods to `tramp-methods', in order to
 ;; exclude them from file name completion.

diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 5460bd00d6cb65277d52072f22737f582d028daa..6e96616d2d3591b352967c6fa95e0fc41c37cc03 100644 (file)
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -26,21 +26,15 @@
 
 ;;; Code:
 
-(eval-when-compile (require 'cl))      ; ignore-errors
 (require 'tramp)
 
-;; Pacify byte-compiler.  The function is needed on XEmacs only.  I'm
-;; not sure at all that this is the right way to do it, but let's hope
-;; it works for now, and wait for a guru to point out the Right Way to
-;; achieve this.
-;;(eval-when-compile
-;;  (unless (fboundp 'dired-insert-set-properties)
-;;    (fset 'dired-insert-set-properties 'ignore)))
-;; Gerd suggests this:
-(eval-when-compile (require 'dired))
-;; Note that dired is required at run-time, too, when it is needed.
-;; It is only needed on XEmacs for the function
-;; `dired-insert-set-properties'.
+;; Pacify byte-compiler.
+(eval-when-compile
+  (require 'cl)
+  (require 'dired)
+  (defvar directory-sep-char)
+  (defvar tramp-gw-tunnel-method)
+  (defvar tramp-gw-socks-method))
 
 (defcustom tramp-inline-compress-start-size 4096
   "The minimum size of compressing where inline transfer.
@@ -4203,9 +4197,6 @@ Goes through the list `tramp-inline-compress-commands'."
        (tramp-message
         vec 2 "Couldn't find an inline transfer compress command")))))
 
-(defvar tramp-gw-tunnel-method)
-(defvar tramp-gw-socks-method)
-
 (defun tramp-compute-multi-hops (vec)
   "Expands VEC according to `tramp-default-proxies-alist'.
 Gateway hops are already opened."

diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el
index 0dd9286da2d344f7ac57dd4d507747e598d7c85a..39e87f994c25cd38079abbc18b1577682397dce3 100644 (file)
--- a/lisp/net/tramp-smb.el
+++ b/lisp/net/tramp-smb.el
@@ -27,9 +27,12 @@
 
 ;;; Code:
 
-(eval-when-compile (require 'cl))      ; block, return
 (require 'tramp)
 
+;; Pacify byte-compiler.
+(eval-when-compile
+  (require 'cl))
+
 ;; Define SMB method ...
 ;;;###tramp-autoload
 (defconst tramp-smb-method "smb"

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index ff090f8257f24c692fe7c49cc134430d5bae921d..29df2bb6577cb6a55465d9639438cbc1a9b9fb75 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -57,9 +57,17 @@
 
 ;;; Code:
 
-(eval-when-compile (require 'cl))      ; ignore-errors
 (require 'tramp-compat)
 
+;; Pacify byte-compiler.
+(eval-when-compile
+  (require 'cl)
+  (defvar bkup-backup-directory-info)
+  (defvar directory-sep-char)
+  (defvar eshell-path-env)
+  (defvar file-notify-descriptors)
+  (defvar outline-regexp))
+
 ;;; User Customizable Internal Variables:
 
 (defgroup tramp nil
@@ -3350,7 +3358,6 @@ of."
     (tramp-error
      v 'file-notify-error "File notification not supported for `%s'" filename)))
 
-(defvar file-notify-descriptors)
 (defun tramp-handle-file-notify-rm-watch (proc)
   "Like `file-notify-rm-watch' for Tramp files."
   ;; The descriptor must be a process object.
@@ -4182,9 +4189,6 @@ Only works for Bourne-like shells."
 
 ;;; Integration of eshell.el:
 
-(eval-when-compile
-  (defvar eshell-path-env))
-
 ;; eshell.el keeps the path in `eshell-path-env'.  We must change it
 ;; when `default-directory' points to another host.
 (defun tramp-eshell-directory-change ()