[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/lexspaces 295ac3d 07/17: Make in-lexspace do something
From: |
Andrea Corallo |
Subject: |
scratch/lexspaces 295ac3d 07/17: Make in-lexspace do something |
Date: |
Fri, 8 May 2020 16:43:08 -0400 (EDT) |
branch: scratch/lexspaces
commit 295ac3da2ad8ea92d4d0adee13379d3acd9af33c
Author: Andrea Corallo <address@hidden>
Commit: Andrea Corallo <address@hidden>
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 600facc..587ca94 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);
- branch scratch/lexspaces created (now e2f183c), Andrea Corallo, 2020/05/08
- scratch/lexspaces 67e28d9 02/17: Adding binding pseudovector, Andrea Corallo, 2020/05/08
- scratch/lexspaces 2d1e916 01/17: Add lexspaces.c, Andrea Corallo, 2020/05/08
- scratch/lexspaces 64e442b 04/17: Add SYMBOL_FUNCTION accessor function, Andrea Corallo, 2020/05/08
- scratch/lexspaces 02d8ef2 05/17: Move symbol value into separate binding, Andrea Corallo, 2020/05/08
- scratch/lexspaces 3a57250 06/17: Add lexspace-make-from, Andrea Corallo, 2020/05/08
- scratch/lexspaces 7fecbf5 08/17: Add lexspace redirection, Andrea Corallo, 2020/05/08
- scratch/lexspaces 09821e3 03/17: Store symbol value into the binding, Andrea Corallo, 2020/05/08
- scratch/lexspaces 04ac507 14/17: Remove unnecessary assertion, Andrea Corallo, 2020/05/08
- scratch/lexspaces 00108a5 15/17: Fix sweep_symbols, Andrea Corallo, 2020/05/08
- scratch/lexspaces 295ac3d 07/17: Make in-lexspace do something,
Andrea Corallo <=
- scratch/lexspaces 610552d 10/17: Add SYMBOL_FUNC_LEXSPACE, Andrea Corallo, 2020/05/08
- scratch/lexspaces 9091913 13/17: Rename lexspace-make-from -> lexspace-make, Andrea Corallo, 2020/05/08
- scratch/lexspaces e2f183c 17/17: Shallow setters by default are not a good idea, Andrea Corallo, 2020/05/08
- scratch/lexspaces 73363e9 09/17: Store lexspace in closures, Andrea Corallo, 2020/05/08
- scratch/lexspaces b46c504 12/17: Add lexspace-import-symbol, Andrea Corallo, 2020/05/08
- scratch/lexspaces c578c72 11/17: Add function lexspace contex mechanism, Andrea Corallo, 2020/05/08
- scratch/lexspaces 0b0098a 16/17: Rename in-lexspace -> lexspace-in, Andrea Corallo, 2020/05/08