Re: Source file not shown in help next to symbol

[Stefan Monnier]

> -            (elc-file (locate-file
> -                       (concat file-name
> -                               (if (string-match "\\.el\\'" file-name)
> -                                   "c"
> -                                 ".elc"))
> -                       load-path nil 'readable))
> -            (str (when elc-file
> -                   (with-temp-buffer
> -                     (insert-file-contents-literally elc-file nil 0 256)
> -                     (buffer-string))))
> -            (src-file (and str
> -                           (string-match ";;; from file \\(.*\\.el\\)" str)
> -                           (match-string 1 str))))

This code indeed looks weird.  Apparently it comes from elsewhere, so it
might need fixing elsewhere as well.

> +            (src-file (locate-library file-name load-path nil 'readable)))

Hmm... I don't understand why you pass `load-path' as the
`nosuffix' argument.


        Stefan