upstream, doesn build yet

1 files changed, 19 insertions, 1 deletions

diff --git a/src/eval.c b/src/eval.c
index 1da841a4073..5a9327a99d8 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -790,6 +790,17 @@ usage: (defconst SYMBOL INITVALUE [DOCSTRING])  */)
   return sym;
 }
 
+/* Make SYMBOL lexically scoped.  */
+DEFUN ("internal-make-var-non-special", Fmake_var_non_special,
+       Smake_var_non_special, 1, 1, 0,
+       doc: /* Internal function.  */)
+     (Lisp_Object symbol)
+{
+  CHECK_SYMBOL (symbol);
+  XSYMBOL (symbol)->declared_special = 0;
+  return Qnil;
+}
+
 
 DEFUN ("let*", FletX, SletX, 1, UNEVALLED, 0,
        doc: /* Bind variables according to VARLIST then eval BODY.
@@ -1020,7 +1031,13 @@ definitions to shadow the loaded ones for use in file byte-compilation.  */)
           if (NILP (expander))
             break;
         }
-      form = apply1 (expander, XCDR (form));
+      {
+        Lisp_Object newform = apply1 (expander, XCDR (form));
+        if (EQ (form, newform))
+          break;
+        else
+          form = newform;
+      }
     }
   return form;
 }
@@ -3576,6 +3593,7 @@ alist of active lexical bindings.  */);
   defsubr (&Sdefvar);
   defsubr (&Sdefvaralias);
   defsubr (&Sdefconst);
+  defsubr (&Smake_var_non_special);
   defsubr (&Slet);
   defsubr (&SletX);
   defsubr (&Swhile);