M-x locate-library doesn't provide default

[Kevin Rodgers]

If point is near "foo" in an expression like
        (load-library "foo")
or
        (require 'foo)
then `M-x locate-library' ought to provide it as the default.

Here's a patch:

*** emacs-21.3/lisp/help.el.orig        Thu Sep  5 16:47:16 2002
--- emacs-21.3/lisp/help.el     Thu Jul 31 09:35:03 2003
***************
*** 1036,1044 ****
  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 (read-string "Locate library: ")
!                    nil nil
!                    t))
    (let (result)
      (catch 'answer
        (mapc
--- 1036,1046 ----
  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
!    (let ((lib (current-word)))
!      (list (read-string (format "Locate library (default %s): " lib)
!                         nil nil lib)
!            nil nil t)))
    (let (result)
      (catch 'answer
        (mapc

--
Kevin Rodgers