Function: vip-join-lines

vip-join-lines is an interactive and byte-compiled function defined in vip.el.gz.

Signature

(vip-join-lines ARG)

Documentation

Join this line to next, if ARG is nil. Otherwise, join ARG lines

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/vip.el.gz
;; join lines.

(defun vip-join-lines (arg)
  "Join this line to next, if ARG is nil.  Otherwise, join ARG lines"
  (interactive "*P")
  (let ((val (vip-P-val arg)))
    (setq vip-d-com (list 'vip-join-lines val nil))
    (vip-loop (if (null val) 1 (1- val))
	  (progn
	    (end-of-line)
	    (if (not (eobp))
		(progn
		  (forward-line 1)
		  (delete-region (point) (1- (point)))
		  (fixup-whitespace)))))))