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

diff --git a/src/eval.c b/src/eval.c
index 141d2546f08f377d8b1e3a05ba306bd167cdfb25..d82d05797b2c3b6e14e56039d97e95f446f6ac87 100644 (file)
--- 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)