[nongnu] elpa/inf-ruby bcdb97983c 257/265: Merge pull request #154 from tunnes/feature-create-load-current-ruby-file

[ELPA Syncer]

branch: elpa/inf-ruby
commit bcdb97983c010b2017c547dbde30e43546db8b46
Merge: bae94383d5 3940b91ac5
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: GitHub <noreply@github.com>

    Merge pull request #154 from tunnes/feature-create-load-current-ruby-file
    
    Create "load current ruby file" command and add key binding for it
---
 inf-ruby.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/inf-ruby.el b/inf-ruby.el
index 073c13c854..1cde3603c7 100755
--- a/inf-ruby.el
+++ b/inf-ruby.el
@@ -165,6 +165,7 @@ graphical char in all other prompts.")
 (defvar inf-ruby-mode-map
   (let ((map (copy-keymap comint-mode-map)))
     (define-key map (kbd "C-c C-l") 'ruby-load-file)
+    (define-key map (kbd "C-c C-k") 'ruby-load-current-file)
     (define-key map (kbd "C-x C-e") 'ruby-send-last-stmt)
     (define-key map (kbd "TAB") 'completion-at-point)
     (define-key map (kbd "C-x C-q") 'inf-ruby-maybe-switch-to-compilation)
@@ -215,6 +216,7 @@ next one.")
     (define-key map (kbd "C-c M-r") 'ruby-send-region-and-go)
     (define-key map (kbd "C-c C-z") 'ruby-switch-to-inf)
     (define-key map (kbd "C-c C-l") 'ruby-load-file)
+    (define-key map (kbd "C-c C-k") 'ruby-load-current-file)
     (define-key map (kbd "C-c C-s") 'inf-ruby)
     (easy-menu-define
       inf-ruby-minor-mode-menu
@@ -778,6 +780,11 @@ Then switch to the process buffer."
                                               file-name
                                               "\"\)\n")))
 
+(defun ruby-load-current-file ()
+  "Load the current ruby file into the inferior Ruby process."
+  (interactive)
+  (ruby-load-file (buffer-name)))
+
 (defun ruby-send-buffer ()
   "Send the current buffer to the inferior Ruby process."
   (interactive)