Function: combobulate--refactor-mark-field

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

Signature

(combobulate--refactor-mark-field PT TAG TEXT &optional TRANSFORMER-FN)

Source Code

;; Defined in /nix/store/b5fvrwzi3zvkabyzx0in6gw1cj963z46-emacs-packages-deps/share/emacs/site-lisp/combobulate-manipulation.el
(defun combobulate--refactor-mark-field (pt tag text &optional transformer-fn)
  ;; check if there is already a field overlay at this position with `tag' at `pt':
  (if-let (ov (combobulate--refactor--get-field pt tag))
      ov
    (let ((ov (make-overlay pt pt nil t nil)))
      ;; args 2 and 3 refer to respectively `tag' and the default value.
      (overlay-put ov 'combobulate-refactor-actions `((field ,tag ,text)))
      (overlay-put ov 'face 'combobulate-refactor-field-face)
      (overlay-put ov 'combobulate-refactor-field-transformer-fn transformer-fn)
      (overlay-put ov 'combobulate-refactor-field-original-text text)
      (overlay-put ov 'combobulate-refactor-field-enabled t)
      (combobulate--refactor-set-field ov text (or text (symbol-name tag)))
      ov)))