Address failure to file of alias definition after it changes

[sxemacs] / lisp / help.el

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