diff options
| -rw-r--r-- | lisp/ange-ftp.el | 2 |
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." | |||
| 3950 | (let ((tryfiles (if nosuffix | 3950 | (let ((tryfiles (if nosuffix |
| 3951 | (list file) | 3951 | (list file) |
| 3952 | (list (concat file ".elc") (concat file ".el") file))) | 3952 | (list (concat file ".elc") (concat file ".el") file))) |
| 3953 | ;; make sure there are no references to temp files | ||
| 3954 | (load-force-doc-strings t) | ||
| 3953 | copy) | 3955 | copy) |
| 3954 | (while (and tryfiles (not copy)) | 3956 | (while (and tryfiles (not copy)) |
| 3955 | (catch 'ftp-error | 3957 | (catch 'ftp-error |