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

[Kevin Rodgers]

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