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

159a4895 · Richard M. Stallman · f90f28a0 · 159a4895
Commit 159a4895 authored Dec 21, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

lisp/help.el lisp/help.el +3 -2

No files found.
--- 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)