[emacs] Some minor tweaks

1 files changed, 11 insertions, 0 deletions

diff --git a/emacs/.emacs.d/lisp/my/my-org.el b/emacs/.emacs.d/lisp/my/my-org.el
index 0fb7d9e..63db9fa 100644
--- a/emacs/.emacs.d/lisp/my/my-org.el
+++ b/emacs/.emacs.d/lisp/my/my-org.el
@@ -113,6 +113,17 @@ With a prefix, insert inactive dates.
       (my-kill-forward)
     (org-kill-line)))
 
+(defun my-org-kill-line-backwards (&optional arg)
+  "Kill backwards in an org way, or `my-kill-backward' with a prefix arg."
+  (interactive "P")
+  (if arg
+      (my-kill-backward)
+    (if (bolp)
+        (delete-char -1)
+      (kill-region
+       (save-excursion (my-org-beginning-of-line-or-indent) (point))
+       (point)))))
+
 (defun my-org-open-default-notes-file ()
   (interactive)
   (find-file org-default-notes-file))