From ee33c8dca0d125c1494b4e70a362ab3f193d7131 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Wed, 24 Dec 2014 04:17:38 -0500 Subject: [PATCH] eval-region-or-last-sexp --- dotfiles/emacs.d/init.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/dotfiles/emacs.d/init.el b/dotfiles/emacs.d/init.el index ed61ecae..42749924 100644 --- a/dotfiles/emacs.d/init.el +++ b/dotfiles/emacs.d/init.el @@ -150,6 +150,10 @@ `(setq ,name ,value) `(defvar ,name ,value))) +(defun eval-region-or-last-sexp () + (interactive) + (if (region-active-p) (call-interactively 'eval-region) (call-interactively 'eval-last-sexp))) + (defun undo-redo (&optional arg) (interactive "P") (if arg (undo-tree-redo) (undo-tree-undo))) @@ -1158,6 +1162,7 @@ marking if it still had that." (define-key lisp-mode-shared-map (kbd "C-c C-r") 'eval-and-replace) (define-key lisp-mode-shared-map (kbd "C-c o r") 'up-list-region) (define-key lisp-mode-shared-map (kbd "C-c o o") 'up-list-back) +(define-key lisp-mode-shared-map (kbd "C-x C-e") 'eval-region-or-last-sexp) ;; ============================================================================= ;; Python