Address failure to file of alias definition after it changes

	If the symbol of an alias changes, describe-function would fail with
	   Invalid byte code: "Object file name not stored in doc file"

	* help.el (describe-function-1): When trying to find the filename
	of an alias find the filename of the symbol-function not the
	alias.

Signed-off-by: Nelson Ferreira <nelson.ferreira@ieee.org>

diff --git a/lisp/help.el b/lisp/help.el
index 93564f5..58fa9c2 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -1286,7 +1286,10 @@ part of the documentation of internal subroutines."
             nil)))
     (princ "\n")
     (or file-name
-       (setq file-name (symbol-file function 'defun)))
+       (setq file-name
+             (symbol-file (if aliases
+                              (symbol-function function)
+                            function) 'defun)))
     (when file-name
        (princ "  -- loaded from \"")
        (if (not (bufferp standard-output))