From 68ffe4a3c9a001db528b057109d11de71471e4ff Mon Sep 17 00:00:00 2001 From: =?utf8?q?=C5=A0t=C4=9Bp=C3=A1n=20N=C4=9Bmec?= Date: Sun, 12 Apr 2020 18:20:41 +0200 Subject: [PATCH] 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 for reporting. * lisp/files.el: * lisp/subr.el: Declare 'read-library-name'. --- lisp/files.el | 2 ++ lisp/subr.el | 2 ++ 2 files changed, 4 insertions(+) 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. -- 2.39.2