From b9bcf5abd27918af6142e54af7045779d4703198 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Fri, 9 Aug 2002 10:28:24 +0000
Subject: Add span-property-safe

---
 generic/span.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/generic/span.el b/generic/span.el
index 86785e93..92b57a89 100644
--- a/generic/span.el
+++ b/generic/span.el
@@ -14,6 +14,14 @@
 	 (require 'span-extent))
  	(t 
 	 (require 'span-overlay))))
+
+;;
+;; Generic functions built on low-level abstract ones
+;;
+
+(defun span-property-safe (span name)
+  "Like span-property, but return nil if SPAN is nil."
+  (and span (span-property span name)))
   
 (provide 'span)
 ;; span.el ends here.
-- 
cgit v1.2.3