diff options
| author | Štěpán Němec <stepnem@gmail.com> | 2020-04-12 18:20:41 +0200 |
|---|---|---|
| committer | Štěpán Němec <stepnem@gmail.com> | 2020-04-12 22:41:32 +0200 |
| commit | 68ffe4a3c9a001db528b057109d11de71471e4ff (patch) | |
| tree | fc539f86db2450fca71a6e5339c3bc60f5ad4d29 | |
| parent | 42306747d8dece897805e89c36c3741bfb8d5e7c (diff) | |
| download | emacs-68ffe4a3c9a001db528b057109d11de71471e4ff.tar.gz | |
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'.
| -rw-r--r-- | lisp/files.el | 2 | ||||
| -rw-r--r-- | lisp/subr.el | 2 |
2 files changed, 4 insertions, 0 deletions
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. |