[Emacs-diffs] master f8ff393: Minor edits in Tramp

[Michael Albinus]

branch: master
commit f8ff3937660f4192d72dec2da31fa5c582434d1f
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    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.
---
 lisp/net/tramp-adb.el    |    1 +
 lisp/net/tramp-compat.el |    6 ------
 2 files changed, 1 insertions(+), 6 deletions(-)

diff --git a/lisp/net/tramp-adb.el b/lisp/net/tramp-adb.el
index 595e0ef..88dea6a 100644
--- 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 e645195..7157ac2 100644
--- 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.