Function: viper-backward-char

viper-backward-char is an interactive and byte-compiled function defined in viper-cmd.el.gz.

Signature

(viper-backward-char ARG)

Documentation

Move point left ARG characters (right if ARG negative).

On reaching beginning of line, stop and signal error.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/viper-cmd.el.gz
(defun viper-backward-char (arg)
  "Move point left ARG characters (right if ARG negative).
On reaching beginning of line, stop and signal error."
  (interactive "P")
  (let ((val (viper-p-val arg))
	(com (viper-getcom arg)))
    (if com (viper-move-marker-locally 'viper-com-point (point)))
    (if viper-ex-style-motion
	(progn
	  (if (bolp) (user-error viper-ViperBell) (backward-char val))
	  (if com (viper-execute-com 'viper-backward-char val com)))
      (backward-char val)
      (if com (viper-execute-com 'viper-backward-char val com)))))