[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/help-fns.el
From: |
Romain Francoise |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/help-fns.el |
Date: |
Fri, 28 Oct 2005 12:55:51 -0400 |
Index: emacs/lisp/help-fns.el
diff -c emacs/lisp/help-fns.el:1.76 emacs/lisp/help-fns.el:1.77
*** emacs/lisp/help-fns.el:1.76 Sun Oct 23 19:12:10 2005
--- emacs/lisp/help-fns.el Fri Oct 28 16:55:47 2005
***************
*** 100,133 ****
(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
--- 100,105 ----