From: Andrea Corallo <akrl@sdf.org>
Date: Fri, 8 May 2020 05:39:00 +0000 (+0100)
Subject: Make in-lexspace do something
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=295ac3da2ad8ea92d4d0adee13379d3acd9af33c;p=emacs.git

Make in-lexspace do something
---

diff --git a/src/lexspaces.c b/src/lexspaces.c
index 600facc3b9a..587ca94ab1a 100644
--- a/src/lexspaces.c
+++ b/src/lexspaces.c
@@ -82,6 +82,11 @@ DEFUN ("in-lexspace", Fin_lexspace, Sin_lexspace, 1, 1, 0,
   (Lisp_Object name)
 {
   CHECK_SYMBOL (name);
+  Lisp_Object src_lex_n = Fgethash (name, Vlexspaces, Qnil);
+  if (NILP (src_lex_n))
+    error ("lexspace %s does not exists", SSDATA (SYMBOL_NAME (name)));
+  curr_lexspace = XFIXNUM (src_lex_n);
+
   return name;
 }
 
@@ -92,9 +97,6 @@ syms_of_lexspaces (void)
   DEFSYM (Qel, "el");
 
   /* Internal use!  */
-  DEFVAR_LISP ("current-lexspace-name", Vcurrent_lexspace_name,
-	       doc: /* Internal use.  */);
-  Vcurrent_lexspace_name = Qel;
   DEFVAR_LISP ("lexspaces", Vlexspaces,
 	       doc: /* Internal use.  */);
   Vlexspaces = CALLN (Fmake_hash_table, QCtest, Qeq);