From 295ac3da2ad8ea92d4d0adee13379d3acd9af33c Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Fri, 8 May 2020 06:39:00 +0100 Subject: [PATCH] Make in-lexspace do something --- src/lexspaces.c | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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); -- 2.39.5