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

[Tino Calancha]

* lisp/help-fns.el (find-lisp-object-file-name):
  Restrict second argument of symbol-file to just 'defvar 'defface 'defun

emacs -Q:
;; 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))

help-fns.patch
Description: Text document