Function: vi-goto-mark

vi-goto-mark is a byte-compiled function defined in vi.el.gz.

Signature

(vi-goto-mark MARK-CHAR &optional LINE-FLAG)

Documentation

Go to marked position or line (if line-flag is given).

Goto mark @ means jump into and pop the top mark on the mark ring.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/vi.el.gz
(defun vi-goto-mark (mark-char &optional line-flag)
  "Go to marked position or line (if line-flag is given).
Goto mark `@' means jump into and pop the top mark on the mark ring."
  (cond ((char-equal mark-char last-command-event)	; `` or ''
	 (exchange-point-and-mark) (if line-flag (back-to-indentation)))
	((char-equal mark-char ?@)	; jump and pop mark
	 (set-mark-command t) (if line-flag (back-to-indentation)))
	(t
	 (let ((mark (vi-get-mark mark-char)))
	   (if (null mark)
	       (progn (vi-ding) (message "Mark register undefined."))
	     (set-mark-command nil)
	     (goto-char mark)
	     (if line-flag (back-to-indentation)))))))