Function: org-link-preview-clear

org-link-preview-clear is an interactive and byte-compiled function defined in ol.el.gz.

Signature

(org-link-preview-clear &optional BEG END)

Documentation

Clear link previews in region BEG to END.

Key Bindings

Aliases

org-remove-inline-images (obsolete since 9.8)

Source Code

;; Defined in /usr/src/emacs/lisp/org/ol.el.gz
(defun org-link-preview-clear (&optional beg end)
  "Clear link previews in region BEG to END."
  (interactive (and (use-region-p) (list (region-beginning) (region-end))))
  (let* ((beg (or beg (point-min)))
         (end (or end (point-max)))
         (overlays (overlays-in beg end)))
    (dolist (ov overlays)
      (when (memq ov org-link-preview-overlays)
        ;; Remove pending preview tasks between BEG and END
        (when-let* ((spec (cl-find ov org-link-preview--queue
                                   :key #'cadr)))
          (setq org-link-preview--queue (delq spec org-link-preview--queue)))
        ;; Remove placed overlays between BEG and END
        (when-let* ((image (overlay-get ov 'display)))
          (when (if (fboundp 'imagep) (imagep image) (eq 'image (car-safe image)))
            (image-flush image)))
        (setq org-link-preview-overlays (delq ov org-link-preview-overlays))
        (delete-overlay ov)))
    ;; Clear removed overlays.
    (dolist (ov org-link-preview-overlays)
      (unless (overlay-buffer ov)
        (setq org-link-preview-overlays (delq ov org-link-preview-overlays))))))