Minor edits in Tramp

* lisp/net/tramp-adb.el (directory-listing-before-filename-regexp):
Declare it.

* lisp/net/tramp-compat.el (directory-listing-before-filename-regexp):
Remove declaration.

diff --git a/lisp/net/tramp-adb.el b/lisp/net/tramp-adb.el
index 595e0ef672269179632b11db98b677fd729a11e5..88dea6a7e3549471bd4b91cae46475fc6e7ad3d6 100644 (file)
--- a/lisp/net/tramp-adb.el
+++ b/lisp/net/tramp-adb.el
@@ -36,6 +36,7 @@
 (require 'tramp)
 
 ;; Pacify byte-compiler.
+(defvar directory-listing-before-filename-regexp)
 (defvar directory-sep-char)
 
 ;;;###tramp-autoload

diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el
index e6451956dc491b5fa341d846fb82cff2778b5938..7157ac25fa20310fd9dcf1f4617fc7f3e0fc2cc0 100644 (file)
--- a/lisp/net/tramp-compat.el
+++ b/lisp/net/tramp-compat.el
@@ -105,12 +105,6 @@
   (unless (boundp 'remote-file-name-inhibit-cache)
     (defvar remote-file-name-inhibit-cache nil))
 
-  ;; `directory-listing-before-filename-regexp' does not exist in
-  ;; XEmacs.  Since we use it only in tramp-adb.el, it doesn't harm to
-  ;; declare it here.
-  (unless (boundp 'directory-listing-before-filename-regexp)
-      (defvar directory-listing-before-filename-regexp nil))
-
   ;; For not existing functions, or functions with a changed argument
   ;; list, there are compiler warnings.  We want to avoid them in
   ;; cases we know what we do.