From 059a552c5c93934197684028e255fbb69ce35f2e Mon Sep 17 00:00:00 2001 From: Romain Francoise Date: Fri, 28 Oct 2005 16:55:48 +0000 Subject: * subr.el (locate-library): Move from help-fns.el. * help-fns.el (locate-library): Move to subr.el. --- lisp/help-fns.el | 28 ---------------------------- 1 file changed, 28 deletions(-) (limited to 'lisp/help-fns.el') diff --git a/lisp/help-fns.el b/lisp/help-fns.el index b39d92cf3be..cffe313fd6c 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -100,34 +100,6 @@ With ARG, you are asked to choose which language." (setq buffer-undo-list nil) (set-buffer-modified-p nil)))) -;;;###autoload -(defun locate-library (library &optional nosuffix path interactive-call) - "Show the precise file name of Emacs library LIBRARY. -This command searches the directories in `load-path' like `\\[load-library]' -to find the file that `\\[load-library] RET LIBRARY RET' would load. -Optional second arg NOSUFFIX non-nil means don't add suffixes `load-suffixes' -to the specified name LIBRARY. - -If the optional third arg PATH is specified, that list of directories -is used instead of `load-path'. - -When called from a program, the file name is normaly returned as a -string. When run interactively, the argument INTERACTIVE-CALL is t, -and the file name is displayed in the echo area." - (interactive (list (completing-read "Locate library: " - 'locate-file-completion - (cons load-path load-suffixes)) - nil nil - t)) - (let ((file (locate-file library - (or path load-path) - (append (unless nosuffix load-suffixes) '(""))))) - (if interactive-call - (if file - (message "Library is file %s" (abbreviate-file-name file)) - (message "No library %s in search path" library))) - file)) - ;; Functions -- cgit v1.2.1