From: Tino Calancha <f92capac@gmail.com>
Date: Tue, 7 Jun 2016 20:42:59 +0000 (-0400)
Subject: * lisp/help-fns.el (describe-function-1):
X-Git-Tag: emacs-25.0.95~10
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4c1370a;p=emacs.git

* 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 6e8a108b506..496deb5c4f1 100644
--- 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)