From 610552d7d9e71e7821323b188ef9cc2e96bd2653 Mon Sep 17 00:00:00 2001
From: Andrea Corallo <akrl@sdf.org>
Date: Fri, 8 May 2020 09:07:21 +0100
Subject: [PATCH] Add SYMBOL_FUNC_LEXSPACE

---
 src/lisp.h | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/src/lisp.h b/src/lisp.h
index 9e941cba656..7cbbe44b5a0 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2252,6 +2252,23 @@ SYMBOL_FUNCTION (struct Lisp_Symbol *sym)
   return tmp;
 }
 
+INLINE Lisp_Object
+SYMBOL_FUNC_LEXSPACE (struct Lisp_Symbol *sym)
+{
+  Lisp_Object tmp = symbol_function_1 (sym);
+
+  if (CONSP (tmp)
+      && CONSP (XCDR (tmp))
+      && EQ (XCAR (XCDR (tmp)), Qclosure))
+    {
+      /* Remove the lexspace number in case (n closure () ...) is
+	 found.  */
+      eassert (FIXNUMP (XCAR (tmp)));
+      return XCAR (tmp);
+    }
+  return Qnil;
+}
+
 INLINE struct Lisp_Symbol *
 SYMBOL_ALIAS (struct Lisp_Symbol *sym)
 {
-- 
2.39.5