From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 15 Feb 2019 23:02:40 +0000 (-0500)
Subject: * src/lread.c (readevalloop): Use filename to decide macroexpansion
X-Git-Tag: emacs-27.0.90~3602
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3c80bc333750b62ed98d3064cf98b74b43121a5e;p=emacs.git

* src/lread.c (readevalloop): Use filename to decide macroexpansion
---

diff --git a/src/lread.c b/src/lread.c
index ff9b75475b8..ddef135687f 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1932,13 +1932,12 @@ readevalloop (Lisp_Object readcharfun,
   Lisp_Object macroexpand = intern ("internal-macroexpand-for-load");
 
   if (NILP (Ffboundp (macroexpand))
-      /* Don't macroexpand in .elc files, since it should have been done
-	 already.  We actually don't know whether we're in a .elc file or not,
-	 so we use circumstantial evidence: .el files normally go through
-	 Vload_source_file_function -> load-with-code-conversion
-	 -> eval-buffer.  */
-      || EQ (readcharfun, Qget_file_char)
-      || EQ (readcharfun, Qget_emacs_mule_file_char))
+      || (STRINGP (sourcename)
+          && SBYTES (sourcename) >= 4
+          && !strcmp (".elc", SSDATA (sourcename) + SBYTES (sourcename) - 4)))
+    /* Don't macroexpand before the corresponding function is defined
+       and don't bother macroexpanding in .elc files, since it should have
+       been done already.  */
     macroexpand = Qnil;
 
   if (MARKERP (readcharfun))