[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r113896: Declare external variables.
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] trunk r113896: Declare external variables. |
Date: |
Thu, 15 Aug 2013 17:02:23 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
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 ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r113896: Declare external variables.,
Michael Albinus <=