From 5e8c14f17879f980574c8c5fafb3e6bc4da8a2d8 Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Wed, 9 Sep 2009 21:20:10 +0200 Subject: [PATCH] Add find_variable_location and create globals.h. This is just a support patch to ensure that the next patch can build properly. --- src/data.c | 6 ++++++ src/lisp.h | 3 +++ 2 files changed, 9 insertions(+) diff --git a/src/data.c b/src/data.c index bdba3a9bb36..df5e2ab9387 100644 --- 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 7f5d5df66c6..907979ae8bc 100644 --- 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 -- 2.39.2