From f8ff3937660f4192d72dec2da31fa5c582434d1f Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sun, 18 Oct 2015 10:29:43 +0200 Subject: [PATCH] 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 insertion(+), 6 deletions(-) diff --git a/lisp/net/tramp-adb.el b/lisp/net/tramp-adb.el index 595e0ef6722..88dea6a7e35 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 e6451956dc4..7157ac25fa2 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. -- 2.39.2