# HG changeset patch
# User Boris Goldowsky <boris@gnu.org>
# Date 794504636 0
# Node ID 7d02d12082ff5b21054a2de4448407fccaca287d
# Parent  66bf8ed1727b37fc23c6a4f0588f3625787d7df3
(textget): Check default_properties vbl too.

diff -r 66bf8ed1727b -r 7d02d12082ff src/intervals.c
--- a/src/intervals.c	Mon Mar 06 15:43:56 1995 +0000
+++ b/src/intervals.c	Mon Mar 06 15:43:56 1995 +0000
@@ -1543,7 +1543,8 @@
 
 /* Get the value of property PROP from PLIST,
    which is the plist of an interval.
-   We check for direct properties and for categories with property PROP.  */
+   We check for direct properties, for categories with property PROP, 
+   and for PROP appearing on the default-properties list.  */
 
 Lisp_Object
 textget (plist, prop)
@@ -1567,7 +1568,11 @@
 	}
     }
 
-  return fallback;
+  if (! NILP (fallback))
+    return fallback;
+  if (CONSP (Vdefault_properties))
+    return textget_direct (Vdefault_properties, prop);
+  return Qnil;
 }
 
 /* Get the value of property PROP from PLIST,