diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2018-05-14 17:14:17 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2018-05-14 17:14:17 +0200 |
| commit | 30bd61d67433c72641cb4d9a020b3c263aa6170f (patch) | |
| tree | 972adedab76ee56da1c899ae3939639983940a00 | |
| parent | d15fa1b7d36a32e1dd9807eb5f0d1d8cd4f2e78d (diff) | |
| download | emacs-30bd61d67433c72641cb4d9a020b3c263aa6170f.tar.gz | |
* lisp/net/ange-ftp.el (ange-ftp-allow-child-lookup):
Do not use obsolete ´dired-local-variables-file'.
| -rw-r--r-- | lisp/net/ange-ftp.el | 5 |
1 files changed, 0 insertions, 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)) |