From 8cbc9c2588fc1b42fdc7d86e30139f685d2f9edb Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sun, 24 May 2015 22:05:59 -0400 Subject: Add command ess-eval-buffer-up-to-line --- lisp/init-ess.el | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'lisp/init-ess.el') diff --git a/lisp/init-ess.el b/lisp/init-ess.el index bf884f6..23dc3ba 100644 --- a/lisp/init-ess.el +++ b/lisp/init-ess.el @@ -31,6 +31,11 @@ (setq local-abbrev-table ess-mode-abbrev-table))) (add-hook hook 'abbrev-mode)) +(defun km/ess-eval-buffer-up-to-line () + "Send up to the current line to inferior ESS process." + (interactive) + (ess-eval-region (point-min) (line-end-position) nil)) + (defvar km/ess-dplry-pipe-key "|") (defun km/ess-insert-dplyr-pipe () @@ -43,6 +48,7 @@ this would work, but it seems to so far." (call-interactively #'ess-smart-S-assign))) (after 'ess-mode + (define-key ess-mode-map (kbd "C-c C-.") 'km/ess-eval-buffer-up-to-line) (define-key ess-mode-map "|" 'km/ess-insert-dplyr-pipe)) (after 'ess-inf -- cgit v1.2.3