[Emacs-diffs] trunk r113896: Declare external variables.

[Michael Albinus]

------------------------------------------------------------
revno: 113896
revision-id: address@hidden
parent: address@hidden
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Thu 2013-08-15 19:02:09 +0200
message:
  Declare external variables.
modified:
  lisp/net/tramp-adb.el          trampadb.el-20121204164216-03wyr5miam215d7f-1
  lisp/net/tramp-cmds.el         
trampcmds.el-20091113204419-o5vbwnq5f7feedwu-7524
  lisp/net/tramp-compat.el       
trampcompat.el-20091113204419-o5vbwnq5f7feedwu-7298
  lisp/net/tramp-ftp.el          
trampftp.el-20091113204419-o5vbwnq5f7feedwu-2514
  lisp/net/tramp-gvfs.el         
trampgvfs.el-20091113204419-o5vbwnq5f7feedwu-10898
  lisp/net/tramp-gw.el           trampgw.el-20091113204419-o5vbwnq5f7feedwu-5067
  lisp/net/tramp-sh.el           trampsh.el-20100913133439-a1faifh29eqoi4nh-1
  lisp/net/tramp-smb.el          
trampsmb.el-20091113204419-o5vbwnq5f7feedwu-2515
  lisp/net/tramp.el              tramp.el-20091113204419-o5vbwnq5f7feedwu-2427

=== modified file 'lisp/net/tramp-adb.el'
--- a/lisp/net/tramp-adb.el     2013-08-15 14:29:08 +0000
+++ b/lisp/net/tramp-adb.el     2013-08-15 17:02:09 +0000
@@ -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."

=== modified file 'lisp/net/tramp-cmds.el'
--- a/lisp/net/tramp-cmds.el    2013-01-22 08:49:03 +0000
+++ b/lisp/net/tramp-cmds.el    2013-08-15 17:02:09 +0000
@@ -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

=== modified file 'lisp/net/tramp-compat.el'
--- a/lisp/net/tramp-compat.el  2013-08-15 14:29:08 +0000
+++ b/lisp/net/tramp-compat.el  2013-08-15 17:02:09 +0000
@@ -29,9 +29,8 @@
 
 ;;; Code:
 
+;; Pacify byte-compiler.
 (eval-when-compile
-
-  ;; Pacify byte-compiler.
   (require 'cl))
 
 (eval-and-compile

=== modified file 'lisp/net/tramp-ftp.el'
--- a/lisp/net/tramp-ftp.el     2013-01-02 16:13:04 +0000
+++ b/lisp/net/tramp-ftp.el     2013-08-15 17:02:09 +0000
@@ -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:

=== modified file 'lisp/net/tramp-gvfs.el'
--- a/lisp/net/tramp-gvfs.el    2013-08-15 14:29:08 +0000
+++ b/lisp/net/tramp-gvfs.el    2013-08-15 17:02:09 +0000
@@ -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."

=== modified file 'lisp/net/tramp-gw.el'
--- a/lisp/net/tramp-gw.el      2013-08-15 14:29:08 +0000
+++ b/lisp/net/tramp-gw.el      2013-08-15 17:02:09 +0000
@@ -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.

=== modified file 'lisp/net/tramp-sh.el'
--- a/lisp/net/tramp-sh.el      2013-08-15 14:29:08 +0000
+++ b/lisp/net/tramp-sh.el      2013-08-15 17:02:09 +0000
@@ -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 @@
        (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."

=== modified file 'lisp/net/tramp-smb.el'
--- a/lisp/net/tramp-smb.el     2013-08-15 14:29:08 +0000
+++ b/lisp/net/tramp-smb.el     2013-08-15 17:02:09 +0000
@@ -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"

=== modified file 'lisp/net/tramp.el'
--- a/lisp/net/tramp.el 2013-08-15 14:29:08 +0000
+++ b/lisp/net/tramp.el 2013-08-15 17:02:09 +0000
@@ -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 @@
     (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 @@
 
 ;;; 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 ()