From: Amin Bandali <bandali@gnu.org>
Date: Sat, 18 Apr 2020 06:45:01 +0000 (-0400)
Subject: * init.el: Add b/join-line-top for joining the next line to this one
X-Git-Url: https://git.shemshak.org/~bandali/configs/commitdiff_plain/e5c2d14707040e9fab4ce5a5c8e2e64d7aa4f5c1

* init.el: Add b/join-line-top for joining the next line to this one
---

diff --git a/init.el b/init.el
index 01ee10a..fde1428 100644
--- a/init.el
+++ b/init.el
@@ -250,6 +250,11 @@ For disabling the behaviour for certain buffers and/or modes."
                 (point)))
       (move-beginning-of-line arg)))
 
+(defun b/join-line-top ()
+  "Like `join-line', but join next line to the current line."
+  (interactive)
+  (join-line 1))
+
 
 ;;; Defaults
 
@@ -523,6 +528,8 @@ For disabling the behaviour for certain buffers and/or modes."
  ("C-S-h C" . describe-char)
  ("C-S-h F" . describe-face)
 
+ ("C-S-j"   . b/join-line-top)
+
  ("C-c x"   . execute-extended-command)
 
  ("C-x k"   . b/kill-current-buffer)