Re: problems with overlays

[martin rudalics]

The following should work, but still overkills.

        ....
        (goto-char satz-ende)
        (gspell-remove-comma-overlays)
        (while (re-search-backward "," satz-anfang t)
          (let ((ov (make-overlay (match-beginning 0) (match-end 0) nil t)))
              (overlay-put ov 'face 'gspell-highlight-commata-face)
              (overlay-put ov 'gspell-comma t))))))))

(defun gspell-remove-comma-overlays ()
  "Remove all comma-overlays from buffer."
  (interactive)
  (dolist (overlay (overlays-in (point-min) (point-max)))
    (when (overlay-get overlay 'gspell-comma)
      (delete-overlay overlay))))