Function: markdown-ts--code-block-in-context-mode-update-ov

markdown-ts--code-block-in-context-mode-update-ov is a byte-compiled function defined in markdown-ts-mode.el.gz.

Signature

(markdown-ts--code-block-in-context-mode-update-ov)

Documentation

Manage markdown-ts--code-block-in-context-mode-ov.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/markdown-ts-mode.el.gz
(defun markdown-ts--code-block-in-context-mode-update-ov ()
  "Manage `markdown-ts--code-block-in-context-mode-ov'."
  (cond (markdown-ts-code-block-in-context-mode
         (when-let* ((ov (cl-some
                          (lambda (ov)
                            (when (overlay-get ov 'markdown-ts-code-block) ov))
                          (overlays-at (point))))
                     (beg (overlay-start ov))
                     (end (overlay-end ov)))
           (if markdown-ts--code-block-in-context-mode-ov
               (move-overlay markdown-ts--code-block-in-context-mode-ov beg end)
             (setq markdown-ts--code-block-in-context-mode-ov
                   (make-overlay beg end nil nil t))
             (overlay-put markdown-ts--code-block-in-context-mode-ov
                          'markdown-ts-in-code-block t)
             (overlay-put markdown-ts--code-block-in-context-mode-ov
                          'evaporate t)
             (overlay-put markdown-ts--code-block-in-context-mode-ov
                          'priority '(nil . 20))
             (overlay-put markdown-ts--code-block-in-context-mode-ov
                          'face 'markdown-ts-in-code-block))))
        (t
         (when markdown-ts--code-block-in-context-mode-ov
           (delete-overlay markdown-ts--code-block-in-context-mode-ov)))))