(ange-ftp-load): Bind load-force-doc-strings to t,

to prevent references to temp files.

1 files changed, 2 insertions, 0 deletions

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 97d6e4c3736..43bdd2e306a 100644
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -3950,6 +3950,8 @@ directory, so that Emacs will know its current contents."
       (let ((tryfiles (if nosuffix
                           (list file)
                         (list (concat file ".elc") (concat file ".el") file)))
+            ;; make sure there are no references to temp files
+            (load-force-doc-strings t)
             copy)
         (while (and tryfiles (not copy))
           (catch 'ftp-error