* lisp/help-fns.el (describe-function-1):

Fix handling of file name for aliases.  (Bug#21950)

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 6e8a108b5068d9767e73e25b531638ec168c34b2..496deb5c4f1cca4be80599cb9b6015848bb93c4c 100644 (file)
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -526,7 +526,8 @@ FILE is the file where FUNCTION was probably defined."
         (sig-key (if (subrp def)
                       (indirect-function real-def)
                     real-def))
-        (file-name (find-lisp-object-file-name function def))
+        (file-name (find-lisp-object-file-name function (if aliased 'defun
+                                                           def)))
          (pt1 (with-current-buffer (help-buffer) (point)))
         (beg (if (and (or (byte-code-function-p def)
                           (keymapp def)