[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Source file not shown in help next to symbol
From: |
Stefan Monnier |
Subject: |
Re: Source file not shown in help next to symbol |
Date: |
Wed, 15 Jul 2015 17:26:13 -0400 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/25.0.50 (gnu/linux) |
> - (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