(jka-compr-load): Bind load-force-doc-strings.

diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index b25e527c9a63bc92abaad84183161eec94927578..d8fd49e8da58249aacd5fd180a0c811acc76d0f4 100644 (file)
--- a/lisp/jka-compr.el
+++ b/lisp/jka-compr.el
@@ -624,7 +624,8 @@ There should be no more than seven characters after the final `/'")
          (or nomessage
              (message "Loading %s..." file))
 
-         (load load-file noerror t t)
+         (let ((load-force-doc-strings t))
+           (load load-file noerror t t))
 
          (or nomessage
              (message "Loading %s...done." file)))