# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 788020739 0
# Node ID 68e113512fa4a8e1fd8648f5ecaa7866070bffc0
# Parent  d59e8878cccaea6cef352534f387a8f707f1f995
(describe-function): Don't add `.el' when printing file name.

diff -r d59e8878ccca -r 68e113512fa4 lisp/help.el
--- a/lisp/help.el	Tue Dec 20 23:05:23 1994 +0000
+++ b/lisp/help.el	Wed Dec 21 14:38:59 1994 +0000
@@ -444,8 +444,9 @@
 	(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)