bug#6679: locate-library does not provide a default when called interactively

[Kevin Rodgers <kevin.d.rodgers@gmail.com>]

See bug 6652 for a use case.

Here's a patch -- should the default be included in the prompt, or
is the user expected to know to try M-n?

2010-07-20  Kevin Rodgers  <kevin.d.rodgers@gmail.com>

	* subr.el (locate-library):  Provide a default LIBRARY
	when called interactively.


*** emacs-23.2/lisp/subr.el~	Sat Apr  3 16:26:12 2010
--- emacs-23.2/lisp/subr.el	Tue Jul 20 07:38:58 2010
***************
*** 1583,1589 ****
     (interactive (list (completing-read "Locate library: "
   				      (apply-partially
                                          'locate-file-completion-table
!                                        load-path (get-load-suffixes)))
   		     nil nil
   		     t))
     (let ((file (locate-file library
--- 1583,1594 ----
     (interactive (list (completing-read "Locate library: "
   				      (apply-partially
                                          'locate-file-completion-table
!                                        load-path (get-load-suffixes))
! 				      nil nil nil nil
! 				      ;; discard text props from default
! 				      ;; to avoid side-effects (visiting file):
! 				      (substring-no-properties
! 				       (thing-at-point 'filename)))
   		     nil nil
   		     t))
     (let ((file (locate-file library


-- 
Kevin Rodgers
Denver, Colorado, USA