diff options
| author | Štěpán Němec | 2020-04-12 18:20:41 +0200 |
|---|---|---|
| committer | Štěpán Němec | 2020-04-12 22:41:32 +0200 |
| commit | 68ffe4a3c9a001db528b057109d11de71471e4ff (patch) | |
| tree | fc539f86db2450fca71a6e5339c3bc60f5ad4d29 | |
| parent | 42306747d8dece897805e89c36c3741bfb8d5e7c (diff) | |
| download | emacs-68ffe4a3c9a001db528b057109d11de71471e4ff.tar.gz emacs-68ffe4a3c9a001db528b057109d11de71471e4ff.zip | |
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 | |||
| 1094 | (let ((default-directory (file-name-quote default-directory 'top))) | 1094 | (let ((default-directory (file-name-quote default-directory 'top))) |
| 1095 | (locate-file command exec-path exec-suffixes 1)))) | 1095 | (locate-file command exec-path exec-suffixes 1)))) |
| 1096 | 1096 | ||
| 1097 | (declare-function read-library-name "find-func" nil) | ||
| 1098 | |||
| 1097 | (defun load-library (library) | 1099 | (defun load-library (library) |
| 1098 | "Load the Emacs Lisp library named LIBRARY. | 1100 | "Load the Emacs Lisp library named LIBRARY. |
| 1099 | LIBRARY should be a string. | 1101 | 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." | |||
| 2285 | (not (eq 'require (car match))))))) | 2285 | (not (eq 'require (car match))))))) |
| 2286 | (throw 'found file)))))) | 2286 | (throw 'found file)))))) |
| 2287 | 2287 | ||
| 2288 | (declare-function read-library-name "find-func" nil) | ||
| 2289 | |||
| 2288 | (defun locate-library (library &optional nosuffix path interactive-call) | 2290 | (defun locate-library (library &optional nosuffix path interactive-call) |
| 2289 | "Show the precise file name of Emacs library LIBRARY. | 2291 | "Show the precise file name of Emacs library LIBRARY. |
| 2290 | LIBRARY should be a relative file name of the library, a string. | 2292 | LIBRARY should be a relative file name of the library, a string. |