From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 21 Dec 1994 14:38:59 +0000 (+0000)
Subject: (describe-function): Don't add `.el' when printing file name.
X-Git-Tag: emacs-19.34~5661
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=159a489504006dc15625b4eddfc4d02b0fb53162;p=emacs.git

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

diff --git a/lisp/help.el b/lisp/help.el
index 0bb57ab61d3..c7bcf665215 100644
--- 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)