From 09a07def47c0529de7113b5ac677f8b52b9627a7 Mon Sep 17 00:00:00 2001 From: Nelson Ferreira Date: Fri, 10 Apr 2020 18:35:40 -0400 Subject: [PATCH] Handle not bound allow-remote-paths in file-remote-p * lisp/files.el(file-remote-p): Use when-boundp instead of declared-boundp, as it will derefence the variable anyway. --- lisp/files.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/files.el b/lisp/files.el index ffa0c42..4b2d8bf 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -3671,7 +3671,7 @@ absolute one." ;; Suggested by Michael Kifer (defun file-remote-p (file-name) "Test whether FILE-NAME is looked for on a remote system." - (cond ((not (declare-boundp allow-remote-paths)) nil) + (cond ((not (when-boundp 'allow-remote-paths allow-remote-paths)) nil) ((fboundp 'ange-ftp-ftp-path) (declare-fboundp (ange-ftp-ftp-path file-name))) ((fboundp 'efs-ftp-path) -- 2.25.1