Function: viper-move-marker-locally

viper-move-marker-locally is a byte-compiled function defined in viper-util.el.gz.

Signature

(viper-move-marker-locally VAR POS &optional BUFFER)

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/viper-util.el.gz
;; Like move-marker but creates a virgin marker if arg isn't already a marker.
;; The first argument must eval to a variable name.
;; Arguments: (var-name position &optional buffer).
;;
;; This is useful for moving markers that are supposed to be local.
;; For this, VAR-NAME should be made buffer-local with nil as a default.
;; Then, each time this var is used in `viper-move-marker-locally' in a new
;; buffer, a new marker will be created.
(defun viper-move-marker-locally (var pos &optional buffer)
  (if (markerp (symbol-value var))
      ()
    (set var (make-marker)))
  (move-marker (symbol-value var) pos buffer))