Stop assuming interval pointers and lisp objects can be distinguished by

[bpt/emacs.git] / src / intervals.c

diff --git a/src/intervals.c b/src/intervals.c
index 2a03abb..f925d22 100644 (file)
--- a/src/intervals.c
+++ b/src/intervals.c
@@ -570,6 +570,8 @@ interval_start_pos (source)
   if (NULL_INTERVAL_P (source))
     return 0;
 
+  if (! INTERVAL_HAS_OBJECT (source))
+    return 0;
   GET_INTERVAL_OBJECT (parent, source);
   if (BUFFERP (parent))
     return BUF_BEG (XBUFFER (parent));