From: Štěpán Němec <stepnem@gmail.com>
Date: Sun, 12 Apr 2020 16:20:41 +0000 (+0200)
Subject: Fix bootstrap compiler warnings about `read-library-name'
X-Git-Tag: emacs-28.0.90~7602
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=68ffe4a3c9a001db528b057109d11de71471e4ff;p=emacs.git

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 beafdaca991..f49be4f21d8 100644
--- 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 70a74fba669..f7445d8c25e 100644
--- 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.