diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2022-08-01 20:01:51 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2022-08-01 20:01:51 +0300 |
| commit | 914f6b3c2ce6c4147724b663bc9644c1fda01451 (patch) | |
| tree | 78e09578abcd86954e4ae68036bc221f5ffa9847 /src/eval.c | |
| parent | de1c98ef0ca62838da26e3f7f1f7d89ae923b084 (diff) | |
* src/eval.c (Fdefvaralias): Clarify error messages. (Bug#56863)
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/src/eval.c b/src/eval.c index 141d2546f08..d82d05797b2 100644 --- a/src/eval.c +++ b/src/eval.c @@ -593,16 +593,19 @@ The return value is BASE-VARIABLE. */) if (SYMBOL_CONSTANT_P (new_alias)) /* Making it an alias effectively changes its value. */ - error ("Cannot make a constant an alias"); + error ("Cannot make a constant an alias: %s", + SDATA (SYMBOL_NAME (new_alias))); sym = XSYMBOL (new_alias); switch (sym->u.s.redirect) { case SYMBOL_FORWARDED: - error ("Cannot make an internal variable an alias"); + error ("Cannot make a built-in variable an alias: %s", + SDATA (SYMBOL_NAME (new_alias))); case SYMBOL_LOCALIZED: - error ("Don't know how to make a localized variable an alias"); + error ("Don't know how to make a buffer-local variable an alias: %s", + SDATA (SYMBOL_NAME (new_alias))); case SYMBOL_PLAINVAL: case SYMBOL_VARALIAS: break; @@ -633,7 +636,8 @@ The return value is BASE-VARIABLE. */) for (p = specpdl_ptr; p > specpdl; ) if ((--p)->kind >= SPECPDL_LET && (EQ (new_alias, specpdl_symbol (p)))) - error ("Don't know how to make a let-bound variable an alias"); + error ("Don't know how to make a let-bound variable an alias: %s", + SDATA (SYMBOL_NAME (new_alias))); } if (sym->u.s.trapped_write == SYMBOL_TRAPPED_WRITE) |