xeals/origami.el
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Adjust overlay range

Browse Source
This commit is contained in:
Greg Sexton 2014-04-19 15:02:44 +01:00
parent f15c83d0da
commit 2f2069041a
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
origami.el
View File

@ -176,12 +176,13 @@ contains point, or null."
;;; overlay manipulation ;;; overlay manipulation
(defun origami-create-overlay (beg end buffer text) (defun origami-create-overlay (beg end buffer text)
(let ((ov (make-overlay beg end buffer))) (when (> (- end beg) 0)
(let ((ov (make-overlay (+ beg 1) end buffer)))
(overlay-put ov 'invisible 'origami) (overlay-put ov 'invisible 'origami)
;; TODO: make this customizable ;; TODO: make this customizable
(overlay-put ov 'display text) (overlay-put ov 'display text)
(overlay-put ov 'face 'font-lock-comment-delimiter-face) (overlay-put ov 'face 'font-lock-comment-delimiter-face)
ov)) ov)))
(defun origami-create-overlay-for-node (node buffer) (defun origami-create-overlay-for-node (node buffer)
(let ((overlay (origami-create-overlay (origami-fold-beg node) (let ((overlay (origami-create-overlay (origami-fold-beg node)
@ -417,7 +418,8 @@ otherwise fetch cached tree."
(defun origami-reset (buffer) (defun origami-reset (buffer)
;; TODO: provide this to the user in case we get screwed up, maybe ;; TODO: provide this to the user in case we get screwed up, maybe
;; use this when disabling the minor mode? ;; use this when disabling the minor mode? Could possibly diff
;; against null?
(interactive) (interactive)
(origami-remove-all-overlays buffer) (origami-remove-all-overlays buffer)
;; TODO: remove fold ds ;; TODO: remove fold ds