(Ftext_property_any): Handle the trivial case specially.

diff --git a/src/textprop.c b/src/textprop.c
index 002e7636ea6761d7c516ed896804c6b5f9dc8ce4..d55d69bfce34d41ca1a9287df9e26c103fa105e6 100644 (file)
--- a/src/textprop.c
+++ b/src/textprop.c
@@ -1,5 +1,5 @@
 /* Interface code for dealing with text properties.
-   Copyright (C) 1993, 1994 Free Software Foundation, Inc.
+   Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -1111,6 +1111,8 @@ containing the text.")
   if (NILP (object))
     XSETBUFFER (object, current_buffer);
   i = validate_interval_range (object, &start, &end, soft);
+  if (NULL_INTERVAL_P (i))
+    return (!NILP (value) || EQ (start, end) ? Qnil : start);
   e = XINT (end);
 
   while (! NULL_INTERVAL_P (i))