From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 20 Jan 1995 01:47:45 +0000 (+0000)
Subject: (Ftext_property_any): Handle the trivial case specially.
X-Git-Tag: emacs-19.34~5370
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2084fddb6da6a8c641dfa9907edbbaf9aac0dbfb;p=emacs.git

(Ftext_property_any): Handle the trivial case specially.
---

diff --git a/src/textprop.c b/src/textprop.c
index 002e7636ea6..d55d69bfce3 100644
--- 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))