Function: viper-goto-col

viper-goto-col is an interactive and byte-compiled function defined in viper-cmd.el.gz.

Signature

(viper-goto-col ARG)

Documentation

Go to ARG's column.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/viper-cmd.el.gz
(defun viper-goto-col (arg)
  "Go to ARG's column."
  (interactive "P")
  (let ((val (viper-p-val arg))
	(com (viper-getcom arg))
	line-len)
    (setq line-len
	  (viper-chars-in-region
	   (viper-line-pos 'start) (viper-line-pos 'end)))
    (if com (viper-move-marker-locally 'viper-com-point (point)))
    (beginning-of-line)
    (forward-char (1- (min line-len val)))
    (while (> (current-column) (1- val))
      (backward-char 1))
    (if com (viper-execute-com 'viper-goto-col val com))
    (save-excursion
      (end-of-line)
      (if (> val (current-column)) (user-error viper-ViperBell)))
    ))