diff options
| -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. |