diff options
| -rw-r--r-- | src/abbrev.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/abbrev.c b/src/abbrev.c index f31ccc9edae..f56054bda51 100644 --- a/src/abbrev.c +++ b/src/abbrev.c @@ -354,7 +354,9 @@ is not undone.") /* This isn't correct if Vlast_abbrev->function was used to do the expansion */ Lisp_Object val; - XSET (val, Lisp_String, XSYMBOL (Vlast_abbrev)->value); + val = XSYMBOL (Vlast_abbrev)->value; + if (XTYPE (val) != Lisp_String) + error ("value of abbrev-symbol must be a string"); adjust = XSTRING (val)->size; del_range (point, point + adjust); insert_from_string (Vlast_abbrev_text, 0, |