comparison lisp/simple.el @ 1063:25b929c06f83

*** empty log message ***

1062:35cc957d83d4

;;; Code:

(defun open-line (arg)
  "Insert a newline and leave point before it.
If there is a fill prefix, insert the fill prefix after the newline
that it inserts.  With arg N, insert N newlines."
  (interactive "*p")
  (let ((flag (and (bolp) (not (bobp)))))
    (if flag (forward-char -1))
    (while (> arg 0)
      (save-excursion
        (insert ?\n)
	(if fill-prefix (insert fill-prefix)))
      (setq arg (1- arg)))
    (if flag (forward-char 1))))

(defun split-line ()
  "Split current line, moving portion beyond point vertically down."

1063:25b929c06f83

;;; Code:

(defun open-line (arg)
  "Insert a newline and leave point before it.
If there is a fill prefix, insert the fill prefix on the new line
if the line would have been empty.
With arg N, insert N newlines."
  (interactive "*p")
  (let* ((do-fill-prefix (and fill-prefix (bolp)))
	 (flag (and (null do-fill-prefix) (bolp) (not (bobp)))))
    (if flag (forward-char -1))
    (while (> arg 0)
      (save-excursion
        (insert ?\n))
      (if do-fill-prefix (insert fill-prefix))
      (setq arg (1- arg)))
    (if flag (forward-char 1))))

(defun split-line ()
  "Split current line, moving portion beyond point vertically down."