diff options
Diffstat (limited to 'src')
| -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.") | |||
| 354 | /* This isn't correct if Vlast_abbrev->function was used | 354 | /* This isn't correct if Vlast_abbrev->function was used |
| 355 | to do the expansion */ | 355 | to do the expansion */ |
| 356 | Lisp_Object val; | 356 | Lisp_Object val; |
| 357 | XSET (val, Lisp_String, XSYMBOL (Vlast_abbrev)->value); | 357 | val = XSYMBOL (Vlast_abbrev)->value; |
| 358 | if (XTYPE (val) != Lisp_String) | ||
| 359 | error ("value of abbrev-symbol must be a string"); | ||
| 358 | adjust = XSTRING (val)->size; | 360 | adjust = XSTRING (val)->size; |
| 359 | del_range (point, point + adjust); | 361 | del_range (point, point + adjust); |
| 360 | insert_from_string (Vlast_abbrev_text, 0, | 362 | insert_from_string (Vlast_abbrev_text, 0, |