Don't use next-line non-interactively

This commit is contained in:
Magnar Sveen 2012-09-24 13:49:43 +02:00
parent 26544fab57
commit 466d8bd4f8

View File

@ -398,7 +398,7 @@ for running commands with multiple cursors.")
(insert "(setq mc/cmds-to-run-for-all '(")
(mapc #'(lambda (cmd) (insert (format "%S" cmd)) (newline-and-indent)) mc/cmds-to-run-for-all)
(when mc/cmds-to-run-for-all
(next-line -1)
(forward-line -1)
(end-of-line))
(insert "))")
(newline)
@ -406,7 +406,7 @@ for running commands with multiple cursors.")
(insert "(setq mc/cmds-to-run-once '(")
(mapc #'(lambda (cmd) (insert (format "%S" cmd)) (newline-and-indent)) mc/cmds-to-run-once)
(when mc/cmds-to-run-once
(next-line -1)
(forward-line -1)
(end-of-line))
(insert "))")
(newline)))