diff options
| author | Paul Eggert | 2011-03-15 16:22:38 -0700 |
|---|---|---|
| committer | Paul Eggert | 2011-03-15 16:22:38 -0700 |
| commit | 527469183746cf04ee8212f9debc96e56f4748be (patch) | |
| tree | f588092b1ba42ed0fb37c97b5ed41a36e31ff5eb /src/data.c | |
| parent | cdef261f74c8cf58a9b9c678e730a59b009ddad9 (diff) | |
| download | emacs-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.c | 11 |
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 | |||
| 824 | Lisp_Object | 821 | Lisp_Object |
| 825 | do_symval_forwarding (register union Lisp_Fwd *valcontents) | 822 | do_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 | |||
| 878 | static void | 867 | static void |
| 879 | store_symval_forwarding (union Lisp_Fwd *valcontents, register Lisp_Object newval, struct buffer *buf) | 868 | store_symval_forwarding (union Lisp_Fwd *valcontents, register Lisp_Object newval, struct buffer *buf) |
| 880 | { | 869 | { |