diff options
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/src/data.c b/src/data.c index 4314ca0294e..6d7a882dcfd 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -1789,16 +1789,9 @@ set_internal (Lisp_Object symbol, Lisp_Object newval, Lisp_Object where, | |||
| 1789 | set_blv_value (blv, newval); | 1789 | set_blv_value (blv, newval); |
| 1790 | 1790 | ||
| 1791 | if (blv->fwd) | 1791 | if (blv->fwd) |
| 1792 | { | 1792 | store_symval_forwarding (blv->fwd, newval, (BUFFERP (where) |
| 1793 | if (unbinding_p) | 1793 | ? XBUFFER (where) |
| 1794 | /* If storing void (making the symbol void), forward only through | 1794 | : current_buffer)); |
| 1795 | buffer-local indicator, not through Lisp_Objfwd, etc. */ | ||
| 1796 | blv->fwd = NULL; | ||
| 1797 | else | ||
| 1798 | store_symval_forwarding (blv->fwd, newval, | ||
| 1799 | BUFFERP (where) | ||
| 1800 | ? XBUFFER (where) : current_buffer); | ||
| 1801 | } | ||
| 1802 | break; | 1795 | break; |
| 1803 | } | 1796 | } |
| 1804 | case SYMBOL_FORWARDED: | 1797 | case SYMBOL_FORWARDED: |