Function: expreg-contract

expreg-contract is an interactive and natively compiled function defined in expreg.el.

Signature

(expreg-contract)

Documentation

Contract region.

Key Bindings

This command is not in any keymaps.

Source Code

;; Defined in /nix/store/29cdhkmkqv2bgp3p30khhf35kkbgx1ya-emacs-packages-deps/share/emacs/site-lisp/elpa/expreg-1.4.1/expreg.el
;;;###autoload
(defun expreg-contract ()
  "Contract region."
  (interactive)
  (when (and (use-region-p)
             (length> expreg--prev-regions 1))

    (push (pop expreg--prev-regions) expreg--next-regions)
    (set-mark (cddr (car expreg--prev-regions)))
    (goto-char (cadr (car expreg--prev-regions))))

  (when expreg--verbose
    (message "next: %S\nprev: %S"
             expreg--next-regions expreg--prev-regions)))