From 4c2acdc29b6104e448cbcd526e7d76f79467f96f Mon Sep 17 00:00:00 2001
From: Matus Goljer <matus.goljer@gmail.com>
Date: Sat, 14 Oct 2017 18:56:46 +0200
Subject: [PATCH] Define a function for the lambda bound to M-j.

---
 files/keys.el                       |  5 +----
 files/vendor.el                     |  1 +
 site-lisp/my-defuns-edit.el         |  6 ++++++
 site-lisp/my-site-lisp-autoloads.el | 17 +++++++++++------
 4 files changed, 19 insertions(+), 10 deletions(-)

diff --git a/files/keys.el b/files/keys.el
index b4edc81..706070f 100644
--- a/files/keys.el
+++ b/files/keys.el
@@ -98,10 +98,7 @@
 (bind-key "RET" 'my-newline)
 (bind-key "C-o" 'my-open-line)
 (bind-key "C-S-o" 'my-forward-line-and-indent)
-(bind-key "M-j"
-          (lambda ()
-            (interactive)
-            (join-line -1)))
+(bind-key "M-j" 'my-join-lines)
 
 ;; deleting stuff
 (bind-key "C-<backspace>" 'my-kill-whitespace)
diff --git a/files/vendor.el b/files/vendor.el
index b470516..2721648 100644
--- a/files/vendor.el
+++ b/files/vendor.el
@@ -1045,6 +1045,7 @@ use a directory-local variable to specify this per-project."
     (bind-key "C-c C-t" 'ft-find-test-or-source js2-mode-map)
     (bind-key "M-'" 'js2-jump-to-definition js2-mode-map)
     (bind-key "M-." 'sallet-imenu js2-mode-map)
+    (bind-key "M-j" 'my-join-lines js2-mode-map)
     (defun my-js2-mode-init ()
       (js2-refactor-mode 1)
       (-when-let (buffer (buffer-file-name))
diff --git a/site-lisp/my-defuns-edit.el b/site-lisp/my-defuns-edit.el
index 33c9db7..5077fa3 100644
--- a/site-lisp/my-defuns-edit.el
+++ b/site-lisp/my-defuns-edit.el
@@ -506,6 +506,12 @@ With raw prefix \\[universal-argument] insert the word at point."
       (end-of-line)
       (insert " " text))))
 
+;;;###autoload
+(defun my-join-lines ()
+  "Pull the next line up and place cursor at its beginning."
+  (interactive)
+  (join-line -1))
+
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Identifier editing
diff --git a/site-lisp/my-site-lisp-autoloads.el b/site-lisp/my-site-lisp-autoloads.el
index 663e0b7..c27ca43 100644
--- a/site-lisp/my-site-lisp-autoloads.el
+++ b/site-lisp/my-site-lisp-autoloads.el
@@ -3,8 +3,8 @@
 ;;; Code:
 
 
-;;;### (autoloads nil "my-defuns" "my-defuns.el" (23002 4424 747061
-;;;;;;  654000))
+;;;### (autoloads nil "my-defuns" "my-defuns.el" (23002 4665 154301
+;;;;;;  825000))
 ;;; Generated autoloads from my-defuns.el
 
 (autoload 'my-lorem "my-defuns" "\
@@ -203,8 +203,8 @@ Add face to region.
 
 ;;;***
 
-;;;### (autoloads nil "my-defuns-edit" "my-defuns-edit.el" (22817
-;;;;;;  44623 333283 394000))
+;;;### (autoloads nil "my-defuns-edit" "my-defuns-edit.el" (23010
+;;;;;;  16745 325448 828000))
 ;;; Generated autoloads from my-defuns-edit.el
 
 (autoload 'my-forward-whitespace "my-defuns-edit" "\
@@ -370,6 +370,11 @@ With raw prefix \\[universal-argument] insert the word at point.
 
 \(fn &optional ARG)" t nil)
 
+(autoload 'my-join-lines "my-defuns-edit" "\
+Pull the next line up and place cursor at its beginning.
+
+\(fn)" t nil)
+
 (autoload 'my-change-identifier-style "my-defuns-edit" "\
 Change identifier in region or under point.
 
@@ -394,8 +399,8 @@ Repeat ARG times.
 ;;;***
 
 ;;;### (autoloads nil nil ("my-advices.el" "my-bootstrap.el" "my-macros-tangled.el"
-;;;;;;  "my-macros.el" "my-redef.el" "vendor.el") (23002 4269 645102
-;;;;;;  417000))
+;;;;;;  "my-macros.el" "my-redef.el" "vendor.el") (23010 16609 103472
+;;;;;;  874000))
 
 ;;;***