Mercurial > emacs

changeset 1499:94aa6a66e921

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* abbrev.c (Funexpand_abbrev): Just assign the last abbrev's value to val; don't use XSET. Make sure that the value of the abbrev-symbol is a string.
author Jim Blandy <jimb@redhat.com>
date Sat, 31 Oct 1992 04:49:31 +0000
parents 098464e977d6
children 6489d5182a64
files src/abbrev.c
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/abbrev.c	Fri Oct 30 06:01:13 1992 +0000
+++ b/src/abbrev.c	Sat Oct 31 04:49:31 1992 +0000
@@ -354,7 +354,9 @@
       /* 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,