(textget): Ignore category prop if not a symbol.

5dd6606e · Richard M. Stallman · 0d55a560 · 5dd6606e
Commit 5dd6606e authored Aug 24, 1994 by Richard M. Stallman
Show whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletion

src/intervals.c src/intervals.c +5 -1

No files found.
--- a/src/intervals.c
+++ b/src/intervals.c
@@ -1558,7 +1558,11 @@ textget (plist, prop)
      if (EQ (prop, tem))
 	return Fcar (Fcdr (tail));
      if (EQ (tem, Qcategory))
-	fallback = Fget (Fcar (Fcdr (tail)), prop);
+	{
+	  tem = Fcar (Fcdr (tail));
+	  if (SYMBOLP (tem))
+	    fallback = Fget (tem, prop);
+	}
    }

  return fallback;