Function: vi-set-mark

vi-set-mark is an interactive and byte-compiled function defined in vi.el.gz.

Signature

(vi-set-mark CHAR)

Documentation

Set contents of vi mark register named CHAR to current point.

'@' is the special anonymous mark register.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/vi.el.gz
(defun vi-set-mark (char)
  "Set contents of vi mark register named CHAR to current point.
'@' is the special anonymous mark register."
  (interactive "c")
  (if (char-equal char ?@)
      (set-mark-command nil)
    (let ((aelt (assq char vi-mark-alist)))
      (if aelt
	  (move-marker (cdr aelt) (point)) ; fixed 6/12/86
	(setq aelt (cons char (point-marker)))
	(setq vi-mark-alist (cons aelt vi-mark-alist))))))