From: Nelson Ferreira <nelson.ferreira@ieee.org>
Date: Sat, 18 Apr 2020 15:57:47 +0000 (-0400)
Subject: Address failure to file of alias definition after it changes
X-Git-Tag: v22.1.17~4^2~3
X-Git-Url: http://cgit.sxemacs.org/?p=sxemacs;a=commitdiff_plain;h=142351a4a1fd54ec8b459fa850a28f0b8aa6296b

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
--- 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))