Add find_variable_location and create globals.h.

This is just a support patch to ensure that the next patch can
build properly.

diff --git a/src/data.c b/src/data.c
index bdba3a9bb368105ce623134d4e1f3233d3db90d3..df5e2ab93879d6faf28882a0f4413fe0b9431b89 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -812,6 +812,12 @@ Value, if non-nil, is a list \(interactive SPEC).  */)
                Getting and Setting Values of Symbols
  ***********************************************************************/
 
+Lisp_Object *
+find_variable_location (Lisp_Object *root)
+{
+  return root;
+}
+
 /* Return the symbol holding SYMBOL's value.  Signal
    `cyclic-variable-indirection' if SYMBOL's chain of variable
    indirections contains a loop.  */

diff --git a/src/lisp.h b/src/lisp.h
index 7f5d5df66c61106d5caf3223a929aa077ce4a2d7..907979ae8bc3ce979ab5eb1f48096aad0c56bf0c 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2335,6 +2335,7 @@ EXFUN (Fsub1, 1);
 EXFUN (Fmake_variable_buffer_local, 1);
 
 extern struct Lisp_Symbol *indirect_variable (struct Lisp_Symbol *);
+extern Lisp_Object *find_variable_location (Lisp_Object *);
 extern Lisp_Object long_to_cons P_ ((unsigned long));
 extern unsigned long cons_to_long P_ ((Lisp_Object));
 extern void args_out_of_range P_ ((Lisp_Object, Lisp_Object)) NO_RETURN;
@@ -3626,6 +3627,8 @@ extern Lisp_Object safe_alloca_unwind (Lisp_Object);
   } while (0)
 
 
+#include "globals.h"
+
 #endif /* EMACS_LISP_H */
 
 /* arch-tag: 9b2ed020-70eb-47ac-94ee-e1c2a5107d5e