bug#21950: 25.1.50; find-lisp-object-file-name sometimes cannot find file-name

[Stephen Leake]

Tino Calancha <f92capac@gmail.com> writes:

> ;; following returns nil (it should be the value of file)
> (let ((alias 'd)
>       (def   'dired)
>       (file  (expand-file-name "test-alias-v25.1.50-tmp.el"
>                              user-emacs-directory)))
>   (with-temp-file file
>     (insert (format "(defalias '%s '%s)"
>                   (symbol-name alias)
>                   (symbol-name def))))
>   (load-file file)
>   (find-lisp-object-file-name alias def))

You are passing 'dired as the TYPE argument, which is undocumented, so
it's not surprising it doesn't do what you want.

How did you stumble into this?

-- 
-- Stephe