But how to do it？

Besides， I‘m glad to view your opinions，so here comes the codes：

The place：(defun org-ctrl-c-ctrl-c       the first      (cond

add：

 (cond
   ((overlayp (car (overlays-at (point)))) (let ((overlay (car (overlays-at (point)))))
                              (if (overlayp overlay)
                              (delete-overlay overlay)
                              )))

so that I won’t make all overlays disappear at only once “C-c C-c”

Sent from Windows Mail