Add span-property-safe

1 files changed, 8 insertions, 0 deletions

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.