[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 30bd61d 5/5: * lisp/net/ange-ftp.el (ange-ftp-allow
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] master 30bd61d 5/5: * lisp/net/ange-ftp.el (ange-ftp-allow-child-lookup): |
Date: |
Mon, 14 May 2018 11:14:35 -0400 (EDT) |
branch: master
commit 30bd61d67433c72641cb4d9a020b3c263aa6170f
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>
* lisp/net/ange-ftp.el (ange-ftp-allow-child-lookup):
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 c3650af..cf9667a 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))