Fix bootstrap compiler warnings about `read-library-name'

Introduced by

2020-03-28T22:16:28+01:00!stepnem@gmail.com
2c45091791 (load-library, locate-library: Use read-library-name)

Thanks to Juanma Barranquero <lekktu@gmail.com> for reporting.

* lisp/files.el:
* lisp/subr.el: Declare 'read-library-name'.

diff --git a/lisp/files.el b/lisp/files.el
index beafdaca99188dbeff31be24a0d2ce35ec593764..f49be4f21d87c96d56f2e2fcf9bb49919947d0c0 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1094,6 +1094,8 @@ REMOTE is non-nil, search on the remote host indicated by
     (let ((default-directory (file-name-quote default-directory 'top)))
       (locate-file command exec-path exec-suffixes 1))))
 
+(declare-function read-library-name "find-func" nil)
+
 (defun load-library (library)
   "Load the Emacs Lisp library named LIBRARY.
 LIBRARY should be a string.

diff --git a/lisp/subr.el b/lisp/subr.el
index 70a74fba6698350c57c4fb40e6524eecaf2887f7..f7445d8c25e646343392741258ed92ebbb29e9b4 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2285,6 +2285,8 @@ Otherwise TYPE is assumed to be a symbol property."
                           (not (eq 'require (car match)))))))
           (throw 'found file))))))
 
+(declare-function read-library-name "find-func" nil)
+
 (defun locate-library (library &optional nosuffix path interactive-call)
   "Show the precise file name of Emacs library LIBRARY.
 LIBRARY should be a relative file name of the library, a string.