Function: cperl-ensure-newlines

cperl-ensure-newlines is a byte-compiled function defined in cperl-mode.el.gz.

Signature

(cperl-ensure-newlines N &optional POS)

Documentation

Make sure there are N newlines after the point.

Go to POS which defaults to the current point after processing.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/cperl-mode.el.gz
(defun cperl-ensure-newlines (n &optional pos)
  "Make sure there are N newlines after the point.
Go to POS which defaults to the current point after processing."
  (or pos (setq pos (point)))
  (if (looking-at "\n")
      (forward-char 1)
    (insert "\n"))
  (if (> n 1)
      (cperl-ensure-newlines (1- n) pos)
    (goto-char pos)))