jt/emacs-prelude
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add prefix arg to prelude-smart-open-line

Browse source 
With a prefix arg the command will invoke prelude-smart-open-line-above
This commit is contained in:
Bozhidar Batsov 2013-06-29 09:26:23 +03:00
parent 9116d5a0c8
commit f76aab7491
1 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
core/prelude-core.el
View file

@ -90,12 +90,17 @@ Position the cursor at it's beginning, according to the current mode."
(forward-line -1) (forward-line -1)
(indent-according-to-mode)) (indent-according-to-mode))
(defun prelude-smart-open-line () (defun prelude-smart-open-line (arg)
"Insert an empty line after the current line. "Insert an empty line after the current line.
Position the cursor at its beginning, according to the current mode." Position the cursor at its beginning, according to the current mode.
(interactive)
With a prefix ARG open line above the current line."
(interactive "P")
(if arg
(prelude-smart-open-line-above)
(progn
(move-end-of-line nil) (move-end-of-line nil)
(newline-and-indent)) (newline-and-indent))))
(defun prelude-top-join-line () (defun prelude-top-join-line ()
"Join the current line with the line beneath it." "Join the current line with the line beneath it."