From 354b6d774a63deb13e84232b97d7982b45768e63 Mon Sep 17 00:00:00 2001 From: "wojciech.meyer" Date: Wed, 1 Aug 2012 02:13:37 +0200 Subject: [PATCH] Allow C-j to eval with auto-end Ignore-this: 8cd09eabbc6b9d5483a5aa380e2cb278 darcs-hash:20120801001337-33bd9-a5d76dab972820c41fc2beb40818a98013f111c6 --- src/top/utop.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/top/utop.el b/src/top/utop.el index 69c0fb3..6181215 100644 --- a/src/top/utop.el +++ b/src/top/utop.el @@ -130,7 +130,7 @@ This hook is only run if exiting actually kills the buffer." (let ((map (make-sparse-keymap))) (define-key map [return] 'utop-eval-input-or-newline) (define-key map [(control ?m)] 'utop-eval-input-or-newline) - (define-key map [(control ?j)] 'utop-eval-input-or-newline) + (define-key map [(control ?j)] 'utop-eval-input-auto-end) (define-key map [home] 'utop-bol) (define-key map [(control ?a)] 'utop-bol) (define-key map [(meta ?p)] 'utop-history-goto-prev)