Function: hs-discard-overlays

hs-discard-overlays is a byte-compiled function defined in hideshow.el.gz.

Signature

(hs-discard-overlays FROM TO)

Documentation

Delete hideshow overlays in region defined by FROM and TO.

Skip "internal" overlays if hs-allow-nesting is non-nil.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/hideshow.el.gz
;;---------------------------------------------------------------------------
;; support functions

(defun hs-discard-overlays (from to)
  "Delete hideshow overlays in region defined by FROM and TO.
Skip \"internal\" overlays if `hs-allow-nesting' is non-nil."
  (when (< to from)
    (setq from (prog1 to (setq to from))))
  (if hs-allow-nesting
      (let (ov)
        (while (> to (setq from (next-overlay-change from)))
          (when (setq ov (hs-overlay-at from))
            (setq from (overlay-end ov))
            (delete-overlay ov))))
    (dolist (ov (overlays-in from to))
      (when (overlay-get ov 'hs)
        (delete-overlay ov)))))