- (let ((props '(its-end t intangible its-part-2)))
- (if its-fence-face
- (append '(invisible t) props)
- props)))
- (forward-char -2)
- (force-mode-line-update)))
+ (if its-fence-face
+ '(invisible t its-end t intangible its-part-2)
+ '(its-end t intangible its-part-2)))
+ (goto-char p)))
+
+(defun its-start (key)
+ (its-insert-fence-open)
+ (its-insert-fence-close)
+ (its-put-cursor (its-input nil key))
+ (force-mode-line-update))
+
+(defun its-restart (str)
+ (let (p)
+ (its-insert-fence-open)
+ (its-insert-fence-close)
+ (setq p (point))
+ (insert str)
+ (put-text-property p (point) 'intangible 'its-part-2)
+ (goto-char p)
+ (its-put-cursor t)))