reproduce-fringe-helper-bug.el

a

;; 1. Eval this
(progn
  (require 'fringe-helper)

  (defun add-single-marker (pos)
   (fringe-helper-insert-region
    pos pos
    (fringe-lib-load fringe-lib-zig-zag)
    'left-fringe 'font-lock-warning-face))

  (defun report-all-overlays ()
    (mapconcat (lambda (o)
                 (format "%S [%d %d]"
                         (overlay-properties o)
                         (overlay-start o)
                         (overlay-end o)))
               (overlays-in (point-min) (point-max)) "\n")))

;; 2. Eval this.
;; Erzeugt ein verwaistes Overlay der Form
;; (fringe-helper-parent #<overlay in no buffer> ...)
(progn
  (remove-overlays) ; Alle Overlays in diesem Buffer löschen
  (setq debug-overlay (add-single-marker 1)) ; Debug-Overlay erzeugen

  (delete-region 1 3)
  (save-excursion (goto-char 1) ; Produktion eines neuen Overlays provozieren
                  (insert "a\n"))

  (fringe-helper-remove debug-overlay)       ; Debug-Overlay löschen
  (report-all-overlays))