(describe-function): Don't add `.el' when printing file name.

diff --git a/lisp/help.el b/lisp/help.el
index 0bb57ab61d321ecf97b9d2ffc45a0b72a658fc5f..c7bcf6652156c2a7a776e0f9c5095519ab0a9d88 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -444,8 +444,9 @@ C-w print information on absence of warranty for GNU Emacs."
        (if file
            (progn
              (princ " in `")
-             (princ file)
-             (princ ".el'"))))
+             ;; We used to add .el to the file name,
+             ;; but that's completely wrong when the user used load-file.
+             (princ file))))
       (princ ".")
       (terpri)
       (let ((arglist (cond ((byte-code-function-p def)