aboutsummaryrefslogtreecommitdiffstats
path: root/src/data.c
diff options
context:
space:
mode:
authorPaul Eggert2011-03-15 16:22:38 -0700
committerPaul Eggert2011-03-15 16:22:38 -0700
commit527469183746cf04ee8212f9debc96e56f4748be (patch)
treef588092b1ba42ed0fb37c97b5ed41a36e31ff5eb /src/data.c
parentcdef261f74c8cf58a9b9c678e730a59b009ddad9 (diff)
downloademacs-527469183746cf04ee8212f9debc96e56f4748be.tar.gz
emacs-527469183746cf04ee8212f9debc96e56f4748be.zip
* data.c (do_blv_forwarding, do_symval_forwarding): Remove; unused.
Diffstat (limited to 'src/data.c')
-rw-r--r--src/data.c11
1 files changed, 0 insertions, 11 deletions
diff --git a/src/data.c b/src/data.c
index 6599d8fdfa3..01aafbcede4 100644
--- a/src/data.c
+++ b/src/data.c
@@ -818,9 +818,6 @@ variable chain of symbols. */)
818 This does not handle buffer-local variables; use 818 This does not handle buffer-local variables; use
819 swap_in_symval_forwarding for that. */ 819 swap_in_symval_forwarding for that. */
820 820
821#define do_blv_forwarding(blv) \
822 ((blv)->forwarded ? do_symval_forwarding (BLV_FWD (blv)) : BLV_VALUE (blv))
823
824Lisp_Object 821Lisp_Object
825do_symval_forwarding (register union Lisp_Fwd *valcontents) 822do_symval_forwarding (register union Lisp_Fwd *valcontents)
826{ 823{
@@ -867,14 +864,6 @@ do_symval_forwarding (register union Lisp_Fwd *valcontents)
867 BUF non-zero means set the value in buffer BUF instead of the 864 BUF non-zero means set the value in buffer BUF instead of the
868 current buffer. This only plays a role for per-buffer variables. */ 865 current buffer. This only plays a role for per-buffer variables. */
869 866
870#define store_blv_forwarding(blv, newval, buf) \
871 do { \
872 if ((blv)->forwarded) \
873 store_symval_forwarding (BLV_FWD (blv), (newval), (buf)); \
874 else \
875 SET_BLV_VALUE (blv, newval); \
876 } while (0)
877
878static void 867static void
879store_symval_forwarding (union Lisp_Fwd *valcontents, register Lisp_Object newval, struct buffer *buf) 868store_symval_forwarding (union Lisp_Fwd *valcontents, register Lisp_Object newval, struct buffer *buf)
880{ 869{