Mercurial > emacs

comparison lisp/simple.el @ 5383:037e2641c768

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(open-line): Properly put fill-prefix on each line.
author Richard M. Stallman <rms@gnu.org>
date Fri, 31 Dec 1993 06:45:33 +0000
parents 00f76e4f7f13
children 99143cd57345
comparison
equal deleted inserted replaced
5382:00f76e4f7f13 5383:037e2641c768
42 ;; record the real value of point as the place to move back to 42 ;; record the real value of point as the place to move back to
43 ;; if we undo this insert. 43 ;; if we undo this insert.
44 (if (and buffer-undo-list (not (eq buffer-undo-list t))) 44 (if (and buffer-undo-list (not (eq buffer-undo-list t)))
45 (setq buffer-undo-list (cons (point) buffer-undo-list))) 45 (setq buffer-undo-list (cons (point) buffer-undo-list)))
46 (forward-char -1))) 46 (forward-char -1)))
47 (while (> arg 0) 47 (save-excursion
48 (save-excursion 48 (while (> arg 0)
49 (insert ?\n) 49 (if do-fill-prefix (insert fill-prefix))
50 (if do-fill-prefix (insert fill-prefix))) 50 (insert ?\n)
51 (setq arg (1- arg))) 51 (setq arg (1- arg))))
52 (end-of-line)
52 (if flag (forward-char 1)))) 53 (if flag (forward-char 1))))
53 54
54 (defun split-line () 55 (defun split-line ()
55 "Split current line, moving portion beyond point vertically down." 56 "Split current line, moving portion beyond point vertically down."
56 (interactive "*") 57 (interactive "*")