Function: vc-buffer-context

vc-buffer-context is a byte-compiled function defined in vc-dispatcher.el.gz.

Signature

(vc-buffer-context)

Documentation

Return a list (POINT-CONTEXT MARK-CONTEXT REPARSE).

Used by vc-restore-buffer-context to later restore the context.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-dispatcher.el.gz
(defun vc-buffer-context ()
  "Return a list (POINT-CONTEXT MARK-CONTEXT REPARSE).
Used by `vc-restore-buffer-context' to later restore the context."
  (let ((point-context (vc-position-context (point)))
	;; Use mark-marker to avoid confusion in transient-mark-mode.
	(mark-context (when (eq (marker-buffer (mark-marker)) (current-buffer))
			 (vc-position-context (mark-marker))))
	;; Make the right thing happen in transient-mark-mode.
	(mark-active nil))
    (list point-context mark-context)))