[Emacs-diffs] Changes to emacs/lisp/finder.el

[Stefan Monnier]

Index: emacs/lisp/finder.el
diff -c emacs/lisp/finder.el:1.49 emacs/lisp/finder.el:1.50
*** emacs/lisp/finder.el:1.49   Fri Mar 22 18:27:35 2002
--- emacs/lisp/finder.el        Wed Sep 11 17:28:51 2002
***************
*** 39,44 ****
--- 39,45 ----
  ;;; Code:
  
  (require 'lisp-mnt)
+ (require 'find-func)                  ;for find-library(-suffixes)
  ;; Use `load' rather than `require' so that it doesn't get loaded
  ;; during byte-compilation (at which point it might be missing).
  (load "finder-inf" nil t)
***************
*** 259,282 ****
      (shrink-window-if-larger-than-buffer)
      (finder-summary)))
  
- (defun finder-find-library (library)
-   "Search for file LIBRARY on `load-path'.
- Try compressed versions if jka-compr is in use."
-   (or (locate-library library t)
-       (if (rassq 'jka-compr-handler file-name-handler-alist)
-         (or (locate-library (concat library ".gz") t)
-             (locate-library (concat library ".Z") t)
-             ;; last resort for MS-DOG et al
-             (locate-library (concat library "z"))))))
- 
  ;;;###autoload
  (defun finder-commentary (file)
    "Display FILE's commentary section.
  FILE should be in a form suitable for passing to `locate-library'."
!   (interactive "sLibrary name: ")
!   (let* ((str (lm-commentary (or (finder-find-library file)
!                                (finder-find-library (concat file ".el"))
!                                (error "Can't find library %s" file)))))
      (if (null str)
        (error "Can't find any Commentary section"))
      (pop-to-buffer "*Finder*")
--- 260,276 ----
      (shrink-window-if-larger-than-buffer)
      (finder-summary)))
  
  ;;;###autoload
  (defun finder-commentary (file)
    "Display FILE's commentary section.
  FILE should be in a form suitable for passing to `locate-library'."
!   (interactive
!    (list
!     (completing-read "Library name: "
!                    'locate-file-completion
!                    (cons (or find-function-source-path load-path)
!                          (find-library-suffixes)))))
!   (let* ((str (lm-commentary (find-library-name file))))
      (if (null str)
        (error "Can't find any Commentary section"))
      (pop-to-buffer "*Finder*")