branch: externals/objed
commit 9267f38c5487a4cd10e73daa6f6a3990efb5ac0d
Author: Clemens Radermacher <[email protected]>
Commit: Clemens Radermacher <[email protected]>
Improve open line command
---
objed.el | 13 ++++---------
1 file changed, 4 insertions(+), 9 deletions(-)
diff --git a/objed.el b/objed.el
index 3d4f00b..a32becb 100644
--- a/objed.el
+++ b/objed.el
@@ -2856,18 +2856,13 @@ Moves point over any whitespace afterwards."
(defun objed-open-line ()
"Open line."
(interactive)
- (back-to-indentation)
- (if electric-indent-inhibit
- (let ((indent (buffer-substring (line-beginning-position)
- (point))))
- (save-excursion
- (insert "\n")
- (insert indent)))
+ (let ((indent (current-column)))
(save-excursion
- (newline)
- (indent-according-to-mode)))
+ (insert "\n")
+ (insert (make-string indent ?\s))))
(objed--reset))
+
(defun objed-move-window-line-up ()
"Move window line up."
(interactive)
