diff options
| author | Helmut Eller | 2026-02-13 09:10:16 +0100 |
|---|---|---|
| committer | Helmut Eller | 2026-02-13 09:10:16 +0100 |
| commit | 91c9e9883488d715a30877dfd7641ef4b3c62658 (patch) | |
| tree | e2c4525147e443f86baf9d0144aeadec082d7564 /src/data.c | |
| parent | 9a4a54af9192a6653164364c75721ee814ffb1e8 (diff) | |
| parent | f1fe4d46190263e164ccd1e066095d46a156297f (diff) | |
| download | emacs-feature/igc.tar.gz emacs-feature/igc.zip | |
Merge branch 'master' into feature/igcfeature/igc
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: |