* init.el: Add b/join-line-top for joining the next line to this one
authorAmin Bandali <bandali@gnu.org>
Sat, 18 Apr 2020 06:45:01 +0000 (02:45 -0400)
committerAmin Bandali <bandali@gnu.org>
Sat, 18 Apr 2020 06:45:01 +0000 (02:45 -0400)
init.el

diff --git a/init.el b/init.el
index 01ee10a..fde1428 100644 (file)
--- 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)))
 
                 (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))
+
 \f
 ;;; Defaults
 
 \f
 ;;; 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-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)
  ("C-c x"   . execute-extended-command)
 
  ("C-x k"   . b/kill-current-buffer)