emacs-diffs
[Top][All Lists]
Advanced

[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);



reply via email to

[Prev in Thread] Current Thread [Next in Thread]