emacs-diffs
[Top][All Lists]
Advanced

[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 ----




reply via email to

[Prev in Thread] Current Thread [Next in Thread]