M-x locate-library doesn't provide default

[Kevin Rodgers <ihs_4664@yahoo.com>]

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