# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 777757244 0
# Node ID 65a05837167539500c33557195f48bf8381c1090
# Parent  0c4d14af9e65047a1b94b6210b2b8d21c55b76cb
(textget): Ignore category prop if not a symbol.

diff -r 0c4d14af9e65 -r 65a058371675 src/intervals.c
--- a/src/intervals.c	Wed Aug 24 19:40:30 1994 +0000
+++ b/src/intervals.c	Wed Aug 24 19:40:44 1994 +0000
@@ -1558,7 +1558,11 @@
       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;