Implement the eagerly anticipated Beyond Script Management Feature No.2 (i.e., automatic preview of next command)

1 files changed, 11 insertions, 0 deletions

diff --git a/lib/span.el b/lib/span.el
index 32967c78..6b576b87 100644
--- a/lib/span.el
+++ b/lib/span.el
@@ -215,6 +215,17 @@ Return nil if no such overlay belong to the list."
   "Set the end point of SPAN to VALUE."
   (span-set-endpoints span (span-start span) value))
 
+;;
+;; Handy overlay utils
+;;
+
+(defun span-add-self-removing-span (beg end &rest props)
+  (let ((ol (make-overlay beg end)))
+    (while props
+      (overlay-put ol (car props) (cadr props))
+      (setq props (cddr props)))
+    (add-timeout 2 'delete-overlay ol)))
+
 
 (provide 'span)