comparison src/intervals.c @ 8611:65a058371675

(textget): Ignore category prop if not a symbol.
author Richard M. Stallman <rms@gnu.org>
date Wed, 24 Aug 1994 19:40:44 +0000
parents cd81dba38a49
children 4feb7830ba01
comparison
equal deleted inserted replaced
8610:0c4d14af9e65 8611:65a058371675
1556 register Lisp_Object tem; 1556 register Lisp_Object tem;
1557 tem = Fcar (tail); 1557 tem = Fcar (tail);
1558 if (EQ (prop, tem)) 1558 if (EQ (prop, tem))
1559 return Fcar (Fcdr (tail)); 1559 return Fcar (Fcdr (tail));
1560 if (EQ (tem, Qcategory)) 1560 if (EQ (tem, Qcategory))
1561 fallback = Fget (Fcar (Fcdr (tail)), prop); 1561 {
1562 tem = Fcar (Fcdr (tail));
1563 if (SYMBOLP (tem))
1564 fallback = Fget (tem, prop);
1565 }
1562 } 1566 }
1563 1567
1564 return fallback; 1568 return fallback;
1565 } 1569 }
1566 1570