(BINDING_STACK_SIZE): New macro.

[bpt/emacs.git] / src / lisp.h

diff --git a/src/lisp.h b/src/lisp.h
index 9e0a769..4ea5dce 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -1506,6 +1506,8 @@ extern struct specbinding *specpdl;
 extern struct specbinding *specpdl_ptr;
 extern int specpdl_size;
 
+#define BINDING_STACK_SIZE()   (specpdl_ptr - specpdl)
+
 /* Everything needed to describe an active condition case.  */
 struct handler
   {