tweak kill-line

lem-project · Jul 17, 2023 · efab48b · efab48b
1 parent 3b543f3
commit efab48b
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/src/commands/edit.lisp b/src/commands/edit.lisp
@@ -183,14 +183,21 @@
   (flet ((end-line-p* (p)
            (with-point ((p p))
              (skip-whitespace-forward p t)
-             (end-line-p p))))
+             (end-line-p p)))
+         (start-line-p* (p)
+           (when (start-line-p p)
+             (with-point ((p p))
+               (skip-whitespace-forward p t)
+               (end-line-p p)))))
     (save-excursion
       (with-point ((start (current-point) :right-inserting))
         (cond
           ((null arg)
            (let ((p (current-point)))
              (cond ((end-buffer-p p)
                     (error 'end-of-buffer :point p))
+                   ((start-line-p* p)
+                    (line-offset p 1))
                    ((end-line-p* p)
                     (if (line-offset p 1)
                         (skip-whitespace-forward p t)