procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* src/eval.c (Fdefvaralias): Clarify error messages. (Bug#56863)

Browse source
This commit is contained in:
Eli Zaretskii 2022-08-01 20:01:51 +03:00
parent de1c98ef0c
commit 914f6b3c2c
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/eval.c
View file

@ -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)