From: Andrew Innes <andrewi@gnu.org>
Date: Thu, 1 Jul 1999 19:40:37 +0000 (+0000)
Subject: (ange-ftp-load): Bind load-force-doc-strings to t,
X-Git-Tag: emacs-20.4~37
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0fe2a56db73980def5b2263906b27add89fce0ab;p=emacs.git

(ange-ftp-load): Bind load-force-doc-strings to t,
to prevent references to temp files.
---

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