Function: combobulate--refactor-mark-label

combobulate--refactor-mark-label is a natively compiled function defined in combobulate-manipulation.el.

Signature

(combobulate--refactor-mark-label BEG END LABEL &optional FACE BEFORE)

Documentation

Mark the region between BEG and END with LABEL.

If BEFORE is non-nil, then the label is placed (using the special before overlay property) before the region.

Source Code

;; Defined in /nix/store/b5fvrwzi3zvkabyzx0in6gw1cj963z46-emacs-packages-deps/share/emacs/site-lisp/combobulate-manipulation.el
(defun combobulate--refactor-mark-label (beg end label &optional face before)
  "Mark the region between BEG and END with LABEL.

If BEFORE is non-nil, then the label is placed (using the special
`before' overlay property) before the region."
  (setq face (or face 'combobulate-refactor-label-face))
  (let ((ov (make-overlay beg end nil nil nil)))
    (overlay-put ov 'combobulate-refactor-actions '((labelled)))
    (if before
        (overlay-put ov 'before-string (propertize label 'face face))
      (overlay-put ov 'face face)
      (overlay-put ov 'display label))
    ov))