From 30bd61d67433c72641cb4d9a020b3c263aa6170f Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 14 May 2018 17:14:17 +0200 Subject: [PATCH] * lisp/net/ange-ftp.el (ange-ftp-allow-child-lookup): MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Do not use obsolete ´dired-local-variables-file'. --- lisp/net/ange-ftp.el | 5 ----- 1 file changed, 5 deletions(-) diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index c3650afa9a7..cf9667ac628 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -2868,7 +2868,6 @@ NO-ERROR, if a listing for DIRECTORY cannot be obtained." ;; 2. The syntax of FILE and DIR make it impossible that FILE could be a valid ;; subdirectory. This is of course an OS dependent judgment. -(defvar dired-local-variables-file) (defmacro ange-ftp-allow-child-lookup (dir file) `(not (let* ((efile ,file) ; expand once. @@ -2877,10 +2876,6 @@ NO-ERROR, if a listing for DIRECTORY cannot be obtained." (host-type (ange-ftp-host-type (car parsed)))) (or - ;; Deal with dired - (and (boundp 'dired-local-variables-file) ; in the dired-x package - (stringp dired-local-variables-file) - (string-equal dired-local-variables-file efile)) ;; No dots in dir names in vms. (and (eq host-type 'vms) (string-match "\\." efile)) -- 2.39.5