Function: cua-indent-to-global-mark-column

cua-indent-to-global-mark-column is an interactive and byte-compiled function defined in cua-gmrk.el.gz.

Signature

(cua-indent-to-global-mark-column)

Documentation

Indent current line or rectangle to global mark column.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/cua-gmrk.el.gz
(defun cua-indent-to-global-mark-column ()
  "Indent current line or rectangle to global mark column."
  (interactive "*")
  (if (cua--global-mark-active)
      (let (col)
	(with-current-buffer (marker-buffer cua--global-mark-marker)
	  (goto-char (marker-position cua--global-mark-marker))
	  (setq col (current-column)))
	(if cua--rectangle
	    (cua--indent-rectangle nil col t)
	  (indent-to col))
	(if (eq (current-buffer) (marker-buffer cua--global-mark-marker))
	    (save-excursion
	      (goto-char (marker-position cua--global-mark-marker))
	      (move-to-column col)
	      (move-marker cua--global-mark-marker (point))
	      (move-overlay cua--global-mark-overlay (point) (1+ (point))))))))